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Bits & Pieces 



ON GOTO ELSE 

A useful sequence in BASIC is IF - THEN - ELSE. 
Unfortunately, as everyone knows, PET BASIC can't do an 
IF THEN ELSE, or can it? Well, the answer is no, it can't. 
However, a lot of times the 'THEN' keyword is followed by a 
line number which really means GOTO. IF GOTO ELSE we can do! 

The common approach in BASIC is an IF statement followed 
by some 'if criteria', followed by THEN or GOTO and a line 
number. Anything beyond here will be ignored since if the 
condition is satisfied, the GOTO is executed, and if not, 
BASIC drops dov/n to the next line of the program. Therefore, 
the next line usually contains the 'ELSE' code. For example: 

100 IF X=B GOTO 120 : X=X+1 : GOTO 100 

...will never work. Even though it does absolutely nothing, 
to do it correctly we need: 

100 IF X=B GOTO 120 
110 X=X+1 : GOTO 100 

To get it all on one line we use the ON GOTO statement: 

100 ON -(X=B) GOTO 120 : X=X+1 : GOTO 100 

True/false logic in PET BASIC produces a "0" for false and 
"-1" for true (try PRINT 4=5, 5=5). A negative argument will 
give 7ILLEGAL QUANTITY ERROR so we change the sign with 
-(A=B) . Fortunately, an argument that is out of range 
{ie.'0')for ON GOTO will not cause execution to drop to the 
next line but rather continue with the next statement. This 
is also true if there are not enough line numbers following 
the GOTO to satisfy the argument. For example: 

100 ON PEEK ( 3276 8+X) GOTO 120 : X=X+1 :GOTO 100 

...will GOTO 120 only if the character PEEKed is an "A". 



The Transactor is produced on the CBM 8032 with WordPro 4+ 
and the NEC Spinwriter 
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When you think about it, an IF THEN ELSE is only useful 
if you can fit the IF criteria, the THEM criteria and the 
ELSE criteria all on one line, which is often not possible. 
Using this variation of OH GOTO, you'll get the IF and ELSE 
criteria on one line; the THEN conditions will go elsewhere. 
Additionally, you can have several THEM conditions just by 
adding more line numbers. 



Misguide INT 

In algebra, the integer of a decimal number is defined 
as the next lov/er whole number past the fractional part. 
Therefore: 

PRINT INT (1.3) 

1 
PRINT INT (-1.3) 
-2 

One might expect the second example to return "-1". But 
BASIC is doing it right. If you want the next lower whole in 
order of magnitude, you'll have to code: 

PRINT INT (ABS (-1.3)) * SGN(-1.3) 

Of course "-1.3" will probably be a variable in your program. 
One last note... integer variables automatically do an INT 
operation on decimal num.bers: 

A% = INT (A) is the same as 
A% = A 



PET/CBM EPROMs 

EPROHs come in all shapes and sizes but not all work 
with PET/CBMs. The most useful ones are the 4K and 2K sizes. 
There is also a IK EPROM which you could probably get quite 
cheap, but this is getting somewhat small and wastefull of 
valuable address space. 

The part numbers are set up so that the last 2 digits 

represent the number of K bits, so this number divided by 8 

gives K bytes. Here is a list of EPROMs that DO work with 
PET/CBMs : 

2532 - 4K byte 

2716 - 2K byte 

2516 - same chip as above 

2708 - IK byte 

2508 - same chip as above 

Several manufacturers (Texas Intrum.ents, Motorola, Hitachi, 
etc.) produce these chips so you might find some letters 
before or after the part number. The 2516s and 2716s are 
virtually the same IC (ie pin for pin compatible) , but the 
2732s and 2532s are quite different. The 2732 won't operate 
in the PET due to power supply requirements. The T.I. 
TMS2716 is also incompatible. 



Any local electronics shop should have availability 
information and EPROM prograrnraers with software are available 
through soin.e Commodore dealers or see the ads in Compute!, 
BYTE, etc. 



Invade Invaders 

Paul Higginbottom. has a quick note for 'Invaders' 
players (from Midnight Software Gazette) : 

$0E01 (3585) - sets speed you move & fire; normally 2 
$0E09 (3593) - sets invader firing speed ; normally 4 
$OEOE (3598) - sets mother ship speed ; normally 6 

Finally, $0623 (1571) contains the character after missiles 
to erase them. Try POKEing with 102 ($66) for Wall Invaders. 



80/40 Vision 

Jim Butterfield doesn't have bionic eyes but he does 
have a v/ay to test for 80 or 40 column screen: 

WD=80 : POKE 3276 8+1024, 96 : IF PEEK (32767) =96 THEN VJD=40 




'What Do You Mean You Don't Know?' 
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standard Features: 

• Full power to PET/CBM for a minimum of 
15 minutes 

• Installs within PET/CBM cabinet 

• No wiring changes necessary 

• Batteries recharged from PET/CBM inte- 
gral power supply 



Specifications: 

• Physical Size: 5.5 x i.b" x 2 4 

• Weight: 4 5 lbs 

• Time to reach full charge: 16 hours 

• Duration of outputs: Minimum of 15 min 

• Voltages: +16, +9, -12, -9 

• Battery Life Expectancy: 3 to 5 years 

• Battery On-Off Switch 



For Use With: 

• Commodore PET/CBM 2001 and 4000 ser- 
ies computer 

• Commodore PET/CBM 8000 series com- 
puter (screen size will not be normal on 
battery back-up) 

• Commodore C2N Cassette Drive 



BATTERY 

BACKUP 

SYSTEIVL 



FOR COMMODORE PET/CBM COMPUTERS 



Never again lose valuable data because of 
power shortages or line surges. BackPack sup- 
plies a minimum of 15 minutes reserve power to 
32K of memory, the video screen and tape 
drive. BackPack fits inside the PET/CBM 
cabinet and can be installed easily by even the 
novice user. BackPack is recharged during nor- 
mal operation and has an integral on-off switch. 

BackPack comes fully assembled and tested. 
Instructions included. 



BackPack is a trademark of ETC Corporation 
CBM/PET are trademarks of Commodore Business Machines 



Designed and manufactured by: 

ELECTRONIC TECHNOLOGY CORPORATION 

P.O. Box G, Old N.C. 42 

Apex, North Carolina 27502 

Phone: (919)362-4200 or (919)362-5671 



Electronic Manufacturing 

Technical Design and Development 

Computer System Technologv 
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ELECTRONIC TECHNOLOGY CORPORATION 
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'The Spats and Violin Case Won't Be Necessary in This Line 
of Work, Perkins.' 




1° ZIPIDOO^T 
EUECTROHIC 



TESTING J'GftWei »*K 
OEPARTnENTf 
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A Bit Excessive, This One, Eh, Jenkins?' 





SfAlMy 




'I Know It's Our Computer's Mistake, 
Mr. Hill, But It Would Be Easier in the 
Long Run if You Did Change Your 
NametoZP4/QE/70K.' 



'Our Computer Is on the 
Blink. Can You Send Over a 
Hundred of Your Fastest 
Mathematicians?' 



'Murder, eh? I'm in for Bending, 
Folding and Mutilating Computer 
Cards.' 




'They're Kinda Cute Once 
You Get Used to Them.' 




*0h, I Don't Mind the 
$800,000 Price. But Is That 
the Only Color It Comes In?" 
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'I Said I Needed Another 
DISK Pack.' 
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There's Nothing to It. Just Remem- 
ber That Force Equals Mass Times 
Acceleration.' 




'Obviously, the Work of an 
Irate User.' 



'Then It's Agreed. At 12:35 P.M., We 
All Break Down Just for Fun.' 




'Gee, Nano, You Never Were Very Good at Strip Poker.' 
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'I Think a Simple Error 
Would Suffice." 




'How About Kicking Off With a Gootf, 
Oid-Fashioned Memory Dump?' 
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'Here You See Our Entry to the Far East Market.' 



'It Wants a Squirt of Oil on That 
Squeaky Door Hinge Back There.' 
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standard Features: 

• Full power to Commodore Dual Drive 
Floppy Disk for a minimum of 15 minutes 

• installs within Disk Drive cabinet 

• No wiring changes necessary 

• Batteries recharged from Disk Drive's 
internal power supply 



Specifications: 



x3.6" x2.4" 



Physical Size: 5.5' 

Weight: 4.5 lbs. 

Time to Reach Full Charge: 16 hours 

Duration of Outputs: Minimum of 15 min. 

Voltages: +16, +8 

Battery Life Expectancy: 3 to 5 years 

Battery On-Off Switch 



For Use With: 



• Commodore CBM 2040 Dual Disk Drive 

• Commodore CBM 4040 Dual Disk Drive 

• Commodore CBM 8050 Dual Disk Drive 



BATTERY 

BACKUP 
SYSTEM- 

FOR COMMODORE 

DUAL DRIVE FLOPPY DISK 

Floppy BackPack is a total, rechargeable, 
battery backup system for the Commodore line 
of Dual Drive Floppy Disks. Used in conjunc- 
tion with BackPack (battery backup for the 
PET/CBM) it is now possible to save valuable 
data to either disk drive during power short- 
ages and line surges. Floppy BackPack also 
reduces chances of disk damage in the 2040. 

Floppy BackPack fits inside the disk cabinet 
and can be installed easily by even the novice 
user. Floppy BackPack is recharged during 
normal operation from the disk's own internal 
power supply and has its own integral oa-off 
switch. 

Floppy BackPack comes fully assembled .and 
tested. Instructions included. * 



Floppy BackPack is a trademark of ETC Corporation 
CBM is a trademark of Commodore Business Machines 



Designed and manufactured by: 

ELECTRONIC TECHNOLOGY CORPORATION 

P.O. Box C, Old N.C. 42 

Apex, North Carolina 27502 

Phone: (919)362-4200 or (919)362-5671 



Electronic Manufacturing 

Technical Design and Development 

Computer System Technology 



ELECTRONIC TECHNOLOGY CORPORATION 
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Backup 

Apologies to Dave Hook for omitting his Romswitch & 
Utility Switch BASIC Loader for the SWARM-100 Board. Two 
issues later, here it is. 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 



ROMSWITCH 
FOR 

DAVID A. 
BARRIE, 
L4M 2E9 



HOOK, 5 8 STEEL STREET 
ONTARIO, CANADA 
(705) 726-8126 



REM ROMSWITCH & UTILITY SWITCH 

REM FOR SWARM-100 

REM 

REM(C) 

REM 

REM 

REM 

REM ALL RIGHTS RESERVED 

REM PERMISSION TO COPY FOR NON-COMMERCIAL PURPOSES 

REM AS OF JUNE 14, 1981 

SA=897:B=6 4 

PRINT" [CLR RVS] ROMSWITCH / UTILSWITCH FOR SWARM-100 

PRINT" [DN DN]DO YOU WANT TO LOAD AT [RVS] " ;SA" [OFF ']Y[CL]"; 

POKE167,0 

GETZ$:IFZ$=""THEN14 

PRINTZ $ : IFZ $<> "N"THEN29 

PRINT" [DN] PUT IN HIGH MEMORY [RVS]Y[CL]"; 

POKE167,0 

GETZ$:IFZ$=""THEN18 

PRINTZ$:IFZ$="N"THEN23 

EA=PEEK(52)+256*PEEK(53)-2:SA=EA-B:J%=SA/256:J=SA-256*J% 

POKE 52,J:POKE 53,J%:POKE 48,J:POKE 49, J% 

GOT029 

INPUT" [DN] START ADDRESS ?[CL CL CL]";Z$ 

IFZ$="?"THENPRINT"[UP UP UP]":GOT023 

SA=VAL(Z$) 

IFASC(Z$) 036THEN29 

Z$=RIGHT$("000"+MID$(Z$,2) ,4) 

F0RI=1T04:Z=ASC(MID$(Z$,I,1)) : Z=Z+7* ( Z>57) -48:SA=SA+Z*16" ( 4-1) :NEXT 

EA=SA+B:TA=SA+42:TA%=TA/256:RL=SA+30 

FOR A=SA TO EA:READ D:POKE A, D: NEXT 

POKE RL+1,TA%:P0KE RL,TA-TA%*256 

PRINT" [CLR DN]NOTE THE 'SYS' ROUTINE ADDRESSES: 

PRINT" [DN DN]FOR: SOFT ROM SWAP — SYS("SA") 
HARD ROM SWAP — SYS("SA+4") 
UTILITY SWAP — SYS("SA+56") 



PRINT" [DN] 
PRINT" [DN] 
DATA 162, 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



160, 
208, 

56, 

252, 

0, 

16, 

195, 

0, 

228, 

141, 



5, 

4, 

2, 

232, 

255, 

0, 

247, 

137, 

0, 

85, 

56, 



208, 
165, 
160, 
138, 
152, 
149, 
88, 
253, 
179, 
120, 
232, 



2, 

144, 

0, 

208, 

10, 
144, 
108, 

23, 
255, 
141, 

88, 



162, 
201, 
120, 
3, 
168, 
200, 
250, 
230, 
212, 

60, 

96 




85 
153 
108 
185 
202 
255 
46 
120 
232 



"[CLR]" 


= 


clear screen 


" [ HOME ] " 


= 


cursor home 


"[UP]" 


= 


cursor up 


"[DN]" 


= 


cursor down 


"[CL]" 


= 


cursor left 


"[CR]" 


= 


cursor right 


"[RVS]" 


= 


reverse mode on 


"[OFF]" 


= 


reverse mode off 


"[ • ]" 


= 


1 space 


"[15DN]" 


= 


15 cursor downs 
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Xl^ 


=X2 : 


; GOTO 


2030 


A ] 


LINE 


********** 


X= 


=X1 : 


; Y=Y1 




IF 


L=0 


THEN ; 


3040 



BASIC Plotter Paul Higginbottom 

Coininodore Canada 

This program will plot random lines using the 
"quarter-square" graphics characters. Although it's a 
program in itself, it could easily be made into a subroutine. 

The program has been set up for PO column screens (line 
9040) . Notice "LL" (Line Length) is multiplied by 2 in lines 
2020 & 2030? Since the quarter squares use up half a 
character space in the "x" direction, an 80 column screen can 
have up to 160 "half-characters" horizontally. Similarly, on 
25 lines there can be up to 50 half characters vertically 
("y" direction). For 40 column screens you'll need to change 
LL to 40; the second parameter remains the same since both 
have 25 lines. 

Line 2000 clears the windov; (if one set), the screen, 
and sets graphics mode (no gap between lines). If you like, 
substitute CHR$(142) with 'esc-rvs-N' and stick it inside the 
quotes. 



2000 PRINT" [HM FIM CLR] "CHR$ ( 142) 

2010 GOSUB 9000 

2020 X1=INT(RND(TI)*LL*2) : Y1=INT(RND (TI) *50) 

2030 X2=INT(RND(TI)*LL*2) : Y2=INT(RND (TI) *50) 

2040 GOSUB 3000 : Y1=Y2 : 

3000 REM ********** PLOT 

3010 DX=X2-X1 : DY=Y2-Y1 : 

3020 L=SOR(DX*DX+DY*DY) : 

3030 XI=DX/L : YI=DY/L 

3040 GOSUB 8000 : IF (ABS(X2-X) <=ABS(XI) ) MID 

(ABS(Y2-Y)<=ABS(YI) ) THEN RETURN 
3050 X=X+XI : Y=Y+YI : GOTO 3040 
8000 REM ********** PLOT X, Y ********** 

8010 TX=INT(X+IR) :TY=INT(Y+IR) :SO=AM(TX AND AM, TY AND AM) 
8020 P=BS+TX/DV-INT(TY/DV)*LL : POKE P, C ( I (PEEK (P) ) OR SQ) 

: RETURN 
9000 REM ********** SETUP ********** 
9010 DIM C(15), 1(255), AM(1,1) 

9020 FOR 1=0 TO 15 : READ C(I) : I(C(I))=I : NEXT 
9030 FOR I=0TOl : FOR J=OT01 : AM( J, I) = ( J+1) *4tl : NEXTJ , I 
9040 LL=80 : BS=32768+24*LL : DV=2 : AM=1 : IR=.5 
9050 DATA 32, 123, 108, 98, 126, 97, 127, 252, 

124, 255, 225, 254, 226, 236, 251, 160 
9060 RETURN 



The subroutine at 9000 sets up an array with the 16 possible 
combinations of the quarter squares. BS is the base address 
or the POKE address of the bottom left corner of the screen. 

All plotting efforts are performed by the two subroutines at 
3000 & 8000. Subroutine 3000 plots a line from xl,yl to 
x2,y2 by plotting several points (sub 8000). At the same 
time, subroutine 8000 must determine if there is already a 
point in a character space. If there is, the POKE 
information must not interfere with existing points. 
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Lines 200X are used for plot criteria generation. The above 
merely plots random lines. For something more meaningful, 
try substituting with these: 



2020 X1=0 : Yl=l 

2025 FOR X2=0 TO 159 

2030 Y2=EXP (X2/31.4) 

2040 GOSUB 3000 : yi=Y2 



X1=X2 : NEXT : END 



2020 N=6 : C=3 .1415926/160 : X1=0 : Yl=25 

2025 FOR X2=0 TO 159 

2030 Y2=25 + 24 * SIN(X2 * N * CJ 

2040 GOSUB 3000 : Y1=Y2 : X1=X2 : NEXT : END 

2020 N=8 : C=3 .1415926/160 : X1=0 : Yl=50 : DC=100 
2025 FOR X2=0 TO 159 

2030 Y2=25 + 24 * C0S(X2 * N * C) * EXP(-X/DC) 

2040 GOSUB 3000 : Yl=y2 : X1=X2 : NEXT : END 

The first plots an exponential curve. Notice the Y origin is 
set to 1 rather than 0. This accounts for a slight 
inaccuracy as the plotter draws horizontal lines using the 
top "half-character" rather than the bottom half-character. 
This could be changed by modifying the character table at 
9050. 

The second draws a SINE curve starting half way up the screen 
(Yl=25) . The variable N represents the number of half cycles 
displayed (N=6 will draw 3 complete cycles) . 

The last one is a decaying COSINE wave, origin at top-left 
(Yl=50) . For higher decay rates, use lower values in DC. 

Finally, with little effort you could use the plotter 
routine to draw axes for your functions. 




'Now, You Say the Last Time 
You Saw It Was in a Macro 
You Were Coding. . .' 
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The Machine Language Monitor - An Introduction 

When the first 2001 Series PET hit the market back in 
1978 r the first programs Commodore released v/ere Squiggle, 
Bigtime and The Machine Language Monitor. Back then, the 
M.L.M. was loaded from tape. Commodore decided to introduce 
the M.L.M. to the next version of BASIC. The two became 
great companions and have been rommies ever since! (ugh. So 
much for PET folklore!) 

The Machine Language Monitor is quite simply a utility 
program for performing more direct operations on machine 
memory and processor registers. For example, the BASIC SAVE 
command is used to store the contents of BASIC text space. 
The M.L.M. 'S' command can be used to save AMY part of memory 
because the start and end addresses are given by the user, 
not pre-determined by the machine. 

In this article, I'll attempt to give a brief overview 
of the main sections of the M.L.M, plus some explanation of 
the 6502 microprocessor registers. For more details on 
machine language, there are several good books on the 
subject. Three are: MOS 6502 Programming Manual (see your 
dealer) , 6502 Assembly Language Programming by Lance A. 
Leventhal (any good computer store) , and the PET Machine 
Language Guide by Arnie Lee (Abacus Software) . 



Engaging the M.L.M. 

There are two ways to enter the M.L.M. program. They 
are known as "break to the monitor" and "call to the 
monitor". In 6502 machine language, a BRK (break) 
instruction is represented by hex 00. Therefore, a SYS to 
any location in memory that contains a zero, will result in a 
"break to the monitor": 

SYS 1024 ;brackets around 
SYS 4 address unnecessary 

The contents of decimal locations 1024 and 4 are always 
zero (unless deliberately altered) . For example: 

SYS4 

B* 

PC IRQ SR AC XR YR SP 
.; 0005 E455 30 00 5E 04 F8 



Notice the 'B*' at the left margin. This indicates 
break to the monitor. To "call" the monitor, one must SYS to 
the location in ROM at which the monitor program starts: 

SYS 6 47 85 : BASIC 2.0 
SYS 54386 :BASIC 4.0 

A 'C*' will be displayed for call to the monitor. 
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M,L,M, CQPtm^rKJg 

There are 6 M.L.M. commands: 

R - display Registers 

M - display Memory 

G - Go or execute memory 

X - Exit to BASIC 

L - Load 

S - Save 

Several monitor extension programs have been released 
that offer extra commands in addition to the above six. 
Programs like NEWMON, SUPERKON and EXTRAMON are loaded into 
RAM and link themselves in with the M.L.M, in ROM to produce 
a more sophisticated monitor utility. However, for now we'll 
concentrate on the resident commands. 

R - Display Registers 

When the M.L.M. is entered (SYS 4, etc.), the registers 
are automatically displayed. These registers are, from left 
to right, the: 

Program Counter (PC) 
Interrupt Request vector (IRQ) 

Status Register (SR) 

Accumulator (AC) 

X Register (XR) 

Y Register (YR) 

Stack Pointer (SP) 

All of these registers, except IRQ, are contained inside the 
microprocessor. They have NO equivalent PEEK address and are 
only accessible through machine language. However, the M.L.M 
allows screen editing here so you can change the values of 
the registers with the cursor. 

The Program Counter (PC) 

The PC register always shows the address of the next 
instruction that will be executed. Notice that if you enter 
with SYS4, the PC will show 0005. 

The IRQ Vector 

Every 60th of a second the PET performs an interrupt. During 
the interrupt, the PET flashes the cursor, updates the clock, 
checks the stop key and scans the keyboard. Once again, all 
this is done by a machine code routine resident in ROM. The 
IRQ vector designates the starting address of this routine. 
You can change the IRQ vector (using the cursor), but the 
change does not take place until a 'G' command is given. 
Also, exit to BASIC CX') resets the IRQ vector back to the 
original contents. 
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The Status Register (SR) 

The Status Register (sometiines called the 'P' register) is 
used to indicate the status of the microprocessor. Each bit 
of this register is used to represent some condition in the 
processor as a result of the events leading up to its* 
interrogation. 

Bit - C - Carry Flag 

1 - Z - Zero Flag 

2 - I - Interrupt Disable 
3-D - Decimal Mode 

4 - B - Break Command 

5 - - Not used 

6 - V - Overflow Flag 

7 - N - Sign Bit 

The Accumulator (AC) 

The Accumulator is your main work register in the 

microprocessor. One can bring data into the accumulator and 

transfer it elsewhere in memory or perform operations on it 
such as AND, OR, ADC, etc. 

The X and Y Registers (XR & YR) 

These registers are auxiliary registers. Although they can 
be used for data transfers, they are more often used as index 
registers for the accumulator. 

The Stack and the Stack Pointer 

The stack is an area in RAM used by the microprocessor to 
store registers temporarily while another task is performed 
that requires the use of those same registers. The stack is 
located from $0100 to OlFF. That's^255 bytes of the total IK 
that PET takes away from you on power up. This area is 
critical for proper machine operation and no POKEs should be 
made here. The stack is often used to store return addresses 
for subroutines AND interrupts. All registers are also 
pushed on the stack before servicing an interrupt and pulled 
off the stack back into their respective registers at the end 
of an interrupt. Several arithmetic routines also use the 
stack extensively. 

The Stack Pointer is used as an index pointer into the stack 
area. As the 6502 throws stuff onto the stack, it must keep 
track of which byte it can use next. The SP starts at $FF 
and decrements each time data is pushed on the stack. This 
means that the first byte onto the stack would occupy 
location $01FF. The SP would decrement by 1 and the next 
byte on would go into $01FE, and so on. As these bytes are 
removed from the stack, SP is first incremented, and the 
processor gets the byte contained in location $0100 + SP, or 
more formally, $0100, SP . Afterwards the Stack Pointer is 
conveniently left pointing at the next available location. 
(For more info on the stack, see Transactor #1, Vol3, pg5) 
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M - Display plgmQcy 

The 'M' command can be used to display any part of 
memory in the entire 64K range. Like the registers, this is 
also in hexadecimal. Syntax for the command is 'M, [start 
address] r [end address]'. For example: 

PC IRQ SR AC XR YR SP 
.; 0005 E455 30 00 5E 04 F8 
.M, 0400, 0401 
.: 0400 00 00 00 AA AA AA AA AA 



The M.L.M displays groups of eight bytes on a line. 
Unless your end address is an even multiple of 8, you will 
always be shown the remainder of the line. Screen editing is 
allowed here too. Simply move the cursor over to the byte. 
Changes occur when RETURN is hit. The address can also be 
altered to duplicate lines into other memory addresses (like 
duplicating a line of BASIC by changing the line number and 
hitting RETURN) . 



g - go pr Ejcggutg 

This command is equivalent to a GOTO as opposed to 
GOSUB. Programs should end with a BRK (hex 00) rather than 
an RTS. Upon executing the BRK, the registers will be 
displayed and you're back in the monitor. 

The 'G' command can be used two ways. Once a machine 
language program is entered, a 'G' command follov;ed by a hex 
address will start executing memory at the address specified. 

If no address is given, execution will begin at the 
address shown by the Program Counter (PC) . On a BRK, the PC 
will be left pointing at the address following the BRK 
instruction. After examining the registers, another 'G' 
command with no address would perform the equivalent of a 
CONT (continue) . 



X - Exit to BASIC 

Quite simply, the 'X' command does a warm start to 
"READY." and you're back in BASIC. 

I - Load 

Unlike the BASIC LOAD command (or DLOAD) , a monitor Load 
brings in files without changing any of the pointers that 
support BASIC text. This can be useful when you have a BASIC 
program already loaded and you would like to bring in a 
machine language utility. 

BASIC programs can also be loaded with 'L', but pointers 
would not be set correctly and proper operation would be 
hampered. For example, NEW the machine and use the M.L.M. to 
load a BASIC program. You can LIST the program, but RUNning 
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the program will produce unpredictable results. LIST the 
program again and you'll notice your BASIC text has been 
clobbered. This is because the Start of Variables Pointer 
was not set properly to the end of BASIC but rather remained 
set pointing at the beginning of BASIC. As variables get set 
from within the program, BASIC begins building a variables 
table according to the address specified by the start of 
variables pointer. If this pointer is at the start of BASIC, 
whammo!... the variables table gets built right on top of 
your BASIC. 

Syntax for the command is: 

'L [filename] , [device #] ' 

A drive number preceding the filename is optional and the 
device # must be in 2 digit hexadecimal. For example: 

PC IRQ SR AC XR YR SP 
.; 0005 E4.55 30 00 5E 04 F8 
.L "l:some program", 08 
searching for some program 
loading 



S^yg 



Probably the most important of the M.L.M. commands. The 
'S' function can be used to store any part of memory from 
zero page, cassette buffers, BASIC text, the screen, right up 
through BASIC ROM and the operating system. This command is 
most appreciated when a crash occurs that clobbers the BASIC 
operating system. Such situations are usually caused by a 
faulty machine code subroutine that you might be testing. 
When the BASIC SAVE command returns TSYNTAX ERROR, it's nice 
to know that you can salvage the program from the M.L.M. 
Syntax is: 

'S [drive*] : [filename] , [device*] , [start addr],[end addr+1] ' 

Due to a small bug, add 1 to the end address chosen. The 
byte at the resultant end address is not saved. 

PC IRQ SR AC XR YR SP 
.; 0005 E455 30 00 5E 04 F8 
.S "l:screen contents", 08, 8000,9000 



The above would store an image of the screen out to a 

disk PRG file. Of course the monitor display would be stored 

too, but this would be impossible with an ordinary BASIC 
SAVE. 

There is one exception when dealing with cassette tape. 
Due to the tape routines and format, the cassette will not 
accept addresses above $7FFF, or m.ore precisely, addresses 
with bit 15 set to 1. Since the start address is stored in 
the file header, a save of memory above $7FFF will not be 
properly sent to the cassette. However, I can't think of a 
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single reason v^hy this would be necessary since there's not 
much you could do with it on tape. 



Summary 

With this information in hand, you'll probably find 
yourself more intrigued by the concept of "machine language" 
(that is if you're not already). As mentioned earlier, there 
are several monitor extension programs that add some 
extremely useful commands to the built-in M.L.M. Commands 
like dissassemble, single step, hunt, transfer, interrogate, 
and assemble make life a lot easier. A little practice and 
you'll find that machine language is not as tough as it's 
made out to be. With many sophisticated assemblers now 
available, you might even find machine language easier than 
BASIC! 
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, p^ Jim HOicom 

llfilA^ Video Cnn^rmier Control Microsystems 

All Commodore machines that have 12" monitors (8032, 
fat 4032, 8096, and SuperPET) employ a device known as the 
6845 video controller to generate the video signals. Some 
come v/ith a 6545 but they're both the same. 

The chip has 18 programmable registers that are accessed 
through 2 memory locations at $E880 and $E881 (59520 and 
5Q521). To read or write a register, the number of the 
register (0-17) is stored in 59520 and that register can then 
be accessed through 59521. This method saves considerably on 
address space. 

The device is used to control such functions as 

character height, cursor size, horizontal position, vertical 

resolution, etc. Here is a summary of the registers and 
their functions: 

RO - Horizontal Total Register. Horizontal frequency 
equalling the total of displayed plus non-displayed 
"character time units" minus 1. 

Rl - Horizontal Displayed Register. Number of displayed 
characters per horizontal line. 

R2 - Horizontal Sync Position. Controls horizontal 
positioning. 

R3 - Horizontal Sync VJidth. 4 bits which control the width 
of the horizontal sync pulse. 

R4 - Vertical Total. The vertical frequency is controlled by 
R4 and R5 . 

R6 - Vertical Displayed. Number of displayed character rows 
on the video. 

P7 - Vertical Sync Position. Controls vertical positioning. 

R8 - Interlace Mode. 2 bits which determine wether 
interlaced or non-interlaced mode is employed. 

R9 - Maximum Scan Line Address. 5 bits determining the 
number of scan lines per character row including spaces. 

RIO - Cursor Start. 7 bits for cursor start scan line and 
blink rate. 

Rll - Cursor End. 5 bits for cursor end scan line. 

R12 - Start Address. R12 and R13 control the first address 
put out as a refresh address after vertical blanking. 
R12 is the low 8 bits and R13 is the hi 6 bits of the 
address. 

R14 - Cursor Register. This 14 bit register stores the 
cursor location. R14 is the 8 low and R15 is the 6 hi 
bits. 

R16 - Light Pen. 14 bits of R16 and R17 store the contents 
of the Address Reg when the light pen strobe goes high. 



All registers are write only with the exception of R14, R15, 
R16 and R17. This means the registers 0-13 can only be 
POKEd. PEEKing these registers will return invalid results. 

Interesting Effects 

In the early days, it was possible to blank the screen of the 
2001 PET. This was useful for visual effects. BASIC 2 
machines omitted this capability which was unfortunate. Now 
it's possible again! The following program demonstrates 
screen blanking for 12" monitor machines: 

10 FOR J=l TO 2000 : PRINT "*"; : NEXT : REM FILL SCRN 

20 POKE 59520, 1 : REM HORIZ DISPLAY REG 

30 POKE 59521, : REM NO WIDTH = NO DISPLAY 

40 FOR J=l TO 2000 : NEXT : REM DELAY 

50 POKE 59521, 40 : REM VIDEO BACK ON 

Notice that the register offset (59520) need not be set again 
to access the same register as before. Default display width 
for 40 and 80 columns screens is "40". 

The horizontal and vertical positioning of the display 
area can be altered by POKing different values into R2 and 
R7. R2 default is 41 and R7 default is 29. 

The number of displayable character columns may be 
modified by POKing different values into Rl. Rl default is 
40. Likewise, the number of displayable character rows can 
be changed using R6. R6 default is 25. 

The machine makes use of the controller for things like 
windowing, and text/graphic modes. Several other effects 
could certainly be achieved for use in games and other 
applications. The combinations and permutations are 
virtually endless! 



Editor's Note 

A word of caution. Uneducated experimentation with the 
6845/6545 can potentially crash the computer. The effects 
involving the registers that Jim talks about are all safe to 
play with but other registers should be left alone unless you 
know what you're doing. 
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Getting Usable Video , ^^ . ^Jim Law 

Signals From 12" Monitor PET/CBMs Batteries Included 

This program works with any "fat" Commodore computer 
(8032, 12" 4032, 8096, and SuperPET) . It re-configures the 
video controller to produce signals which more closely 
approximate the standard video sync signal frequencies. For 
those wishing to use an external video adapter to display the 
PET screen on a video monitor, this program can save having 
to modify the monitor. 

The PET screen remains completely readable, with only 
minor narrowing of the picture and the possibility of loosing 
part of the bottom line in text mode. However, this can be 
corrected with a slight adjustment* to the PET video section. 

Video adapters formerly used with 9" screen machines 
will not work directly with the new 12" machines as the 
polarity of the video out and horizontal sync signals have 
been reversed at the User Port. Correct this with: 

POKE 59520, 12 : POKE 59521, 

This will give the desired effect on the external monitor but 
the PET screen will be inverted (but still readable) . To get 
back to normal, POKE 59520, 12 : POKE 59521, 16 

Some video interfaces for 9" machines have a horizontal 
sync position control and thus may accept the inverted 
pulses. People have used this system and it saved them 
having to obtain new interfaces. 

Video adapters for 12" screen machines are now becoming 
more readily available and may be used with this program to 
produce an external picture which m.ight otherwise be unable 
to "sync" to the strange signal frequencies coming from a 12" 
machine without this program. 

A universal video adapter is available from Batteries 
Included in Toronto (416 596 1405) as well as "VideoH-"; a ROM 
which alters the signals at power-up and eliminates the need 
for this program. Video+ replaces the ROM at UD7 and does 
not interfere with normal operation, 

100 DATA 0, 59, 2, 

110 DATA 0, 59, 2, 

120 FOR J=l TO 6 : 

130 POKE 59520, A 

140 POKE 59521, B 

150 NEXT J 

160 POKE 59468, 14 : PRINT CHR$(14) 

17 PRINT "HIT 'STOP' FOR TEXT MODE CONFIGURATION" 

180 GET A? : IF A$="" THEN 90 

190 FOR J=l TO 6 : READ A, B 

200 POKE 59520, A 

210 POKE 59521, B 

220 NEXT J 

230 POKE 59468, 12 : PRINT CHR$(142) 

240 PRINT "HIT 'STOP' FOR GRAPHICS MODE CONFIGURATION" 

250 GET A$ : IF A$="" THEN 250 

260 RESTORE : GOTO 120 

* Refer to Qualified service personnel _ 9n - 



47, 4, 


26, 


5, 


8, 


7, 


25, 


9, 


9 


47, 4, 


33, 


5, 


6, 


7, 


30, 


9, 


7 


READ A( 


, B 















PRINT-AT Routing Jacques Lebrun 

Lennoxville, Quebec 



Ever had to print at random locations on the screen? 
Most programmers probably have. The only way provided by the 
BASIC interpreter is to use cursor down, up, left and right 
enclosed v/ithin quotes in print statements. This could be 
impractical for some programs v/hich constantly print 
something at different places on the screen. 

Here is a cure: a machine language PRINT-AT routine that 
allows a BASIC program to print anywhere on the screen with a 
simple SYS command. The routine is location independent 
which means that it can execute well no matter its location 
in memory. The best place is probably the first cassette 
buffer for those who never use cassettes. The routine is for 
BASIC 4.0 but could be modified for other BASICS 

The routine can be used two ways. The first one is to 
position the cursor only. This allows further PRINTS, INPUTS 
and GETS to be done at that new location on the screen. 
Format is: 

SYS ADDR,ROW,COL 

The second v/ay positions the cursor and prints whatever 
text follows the SYS. Its format is: 

SYS ADDR, ROW, COL, TEXT 

'ADDR' is the starting address of the routine, 'ROVI' and 
'COL' are two numeric expressions. 'ROW ranges from to 24 
and 'COL' ranges from to 79. 'TEXT' can be any numbers of 
string, integer or floating-point expressions seperated by 
commas or semi-colons just as a normal PRINT statement. 



100 REM *** BASIC LOADER FOR PRINT-AT ROUTINE *** 

110 REM *** SET VARIABLE AD TO DESIRED STARTING ADDRESS *** 

120 AD=634 



130 


FOR I=AD ' 


TO AD+41 


140 


READ A 




150 


POKE I, A 




160 


NEXT I 




170 


END 




180 


DATA 32 , 


245, 190, 


190 


DATA 176, 


28, 134, 


200 


DATA 245, 


190, 32, 


210 


DATA 13 , 


134, 198, 


220 


DATA 32, 


245, 190, 


230 


DATA 195, 


96 



32, 212, 200, 224, 25 

216, 32, 111, 224, 32 

212, 200, 224, 80, 176 

32, 118, 0, 240, 9 

76, 168, 186, 76, 115 
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ThP Print Mint Jii" Butterfield, Toronto 

The usual point of programs is that they produce output. The 
normal way of producing output is by using the PRINT command 
or its cousin, PRINT#. VJe can abbreviate PRINT with a 
question mark (?) , but oddly enough, PRINT* can't be 
shortened that way: typing ?# will produce a program line 
that lists as PRINTS, but doesn't work. 

Other Ways. 

We can generate output without using PRINT. It's not always 
good practice, but we can POKE to the screen memory area. 
This can be good for graphic games and animations, but there 
are several bonus things we get by using PRINT. First, PRINT 
keeps track of the line position for us, and starts a new 
line as necessary. Secondly, PRINT doesn't limit output to 
the size of the screen: when the screen fills up, scrolling 
is automatic. Finally, and most important, PRINT can easily 
be changed to PRINT* to allow output to be directed to other 
devices such as printer, modem, disk or cassette tape. In 
contrast, screen POKEs are absolutely limited to the size of 
the screen, and can't be easily redirected anywhere else. 

Punctuation. 

If you say 'PRINT X' you will print the value of X and start 
a new line. The absence of punctuation at the end of the 
PRINT command signifies, "That's the whole thing; print it 
and wrap the line up." In contrast, if you say 'PRINT X;' 
you will print the value of X but you won't go to the next 
line: the invisible cursor will wait behind the printed 
value. This sounds a little backwards: you do something 
extra if you have no punctuation, but you do nothing if you 
have a semicolon. 

There's one other form of "formatting" punctuation: the 
comma. If you type 'PRINT X,' you will print the value of X 
and then skip ahead to the next "column". Columns are 
considered to start at positions 11, 21, 31 and so on up to 
position 71. They exist only on the screen; saying 
'PRINT#4, X,' to send to printer or other device won't set up 
columns properly. The comma will produce quick and 
convenient output to the screen, but it may be a bad habit 
since you can't use it anywhere else. 

We can use this punctuation within a Basic PRINT statement as 
well as at the end. 'PRINT A;B$;C;' will generate the values 
of variable A, string B$, and variable C one behind the other 
and v;ill leave the cursor positioned behind the value of C. 

Neat Input. 

VJe can use this punctuation to generate prompting for INPUT 
statements. For example, if we wanted to add ten numbers, we 
might code: 
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100 PRINT "INPUT EACH NUMBER:" 

110 FOR J=l TO 10 

120 PRINT J; 

130 INPUT X 

140 T=T+X 

150 NEXT J 

160 PRINT "TOTAL IS";T 

We prompt for the ten numbers with 1? ... 2? ... 3? ... and 

so on. The prompting number is printed by line 120 - J is 
stepping from 1 to 10 - and the question mark from the INPUT 
statement appears behind it because line 120 ends in a 
semicolon; after printing the number we wait on the same line 
so that the question mark will appear there. Question: What 
would happen if line 120 ended with a comma instead of a 
semicolon? Try it and see. 

Number Formats. 

Numbers are printed in a special format. First, there is 
either a space for positive numbers or a minus sign for 
negative numbers. Then the number appears, as many digits as 
required plus a decimal point if needed and perhaps even "E" 
notation. (Never heard of E notation? Try PRINT 3E2 and see 
if you can figure it out) . Finally, the number is followed 
by a cursor-right on the screen. 

This seems at first to give you two spaces between numbers, 
but there are one or two fine points that are useful to know. 
If you type PRINT 2;3;4 you will see two spaces appear 
between each set of digits. Now try this; Type a bunch of x 
characters over the answer (a row of xxxxxxx...) and then 
cursor back to the PRINT statement and press RETURN again. 
Some of the x's don't go away; that's because a cursor-right 
skips over that part of the screen without writing there. 

There are a couple of ways to eliminate this difficulty if it 
bothers you. If you change a value to a string before 
printing, the cursor-right won't be performed. You could 
type PRINT STR${2) ;STR$(3) ;STR$(4) - the same numbers will 
print with at least part of the problem solved. If you 
happen to have an 80-column or Fat-40 4.0 system, you 'may 
type: PRINT CHR$(16) ;CHR$(22) ;2;3;4 and you'll discover the 
problem is solved quite elegantly. 

Here's another exception to the two-spaces rule: Type 
PRINT 2;-3;-4;5 and look at the result. The minus signs take 
up one of the two positions, and now there's only one space 
between some numbers. 

Summary. 

PRINT is handy and versatile. It takes a little while to get 
used to the formatting of the PRINT statement, but you'll 
soon have good control over your output. 

There are some fascinating things you can PRINT which cause 
the screen to do unusual things. More about them another 
time. 
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Prn qrammina Tjps Paul Higginbottom 

■ ^ -^ ^ Commodore Canada 

First I v^70uld like to answer some frequently raised 
questions about screen formatting of data, and then take a 
look at a few techniques to make programs smaller and more 
elegant. 

Number Juggling 

Formatting numbers on the screen can cause problems when 
the TAB function is used. If a numbers are to be printed in 
columns, then it would be nice to ensure that the decimal 
point of the numbers always line up in the column. 

For example, if the number is simply TABbed onto the 
screen, and the number is a "0", then it will appear at the 
left hand side of the column, which doesn't look very smart. 
It is therefore necessary to use the length of the number 
(ie. the number of digits including decimal points) to drive 
the TAB expression. A number has a leading space and a 
trailing cursor right which needs to be taken into 
consideration. The LEN function counts the number of 
characters in a string. In order to use LEN it is first 
necessary to convert the number into a string using STR$. 
The number of characters in the number is given by: 

X = LEN ( STR$ (A) ) - 1 

...where A is the number. The trailing cursor right is 
ignored by STR$ but 1 is subtracted to take account of the 
leading space. So nov7, taking the above example, if we were 
to TAB(IO-X) we v/ould be in business, right? No, not quite 
yet. 

There are a couple more possibilities that should be 
considered. Sometimes it is desirable to tack leading zeroes 
onto integer numbers (ie. to display "0038" rather than 
"3 8") . With decimal numbers, we may want a specified number 
of digits following the decimal place, followed by trailing 
zeroes which the PET does not do for us. All of this will 
affect the positioning of numbers output to the screen. 

V7ithout question, the easiest way to handle number 
formatting is to first turn the number into a string: 

A$ = MID$ ( STR$ (A) , 2 ) 

STR$ converts "A" to a string and the HID$ function is used 
to take the 2nd character onwards, thus rem.oving the leading 
space. To add leading zeroes we use the RIGHT$ function: 

A$ = RIGHT$ ("000000" + A$, 4 ) 

Assuming "A" is an integer, the above will produce a 4 
character string. The number of leading zeroes will be 
dependent on the size of "A" (ie "16" produces "0016" and 
"1024" stays "1024"). For compactness, all of the above 
could have been done with: 

A$ = RIGHT$ ("000000"+ MID$ ( STR$(A),2), 4) 
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I-...-, "^^?^ decimal numbers and adding trailing zeroes is a 
little trickier. First we must decide how many significant 
digits are to follow the decimal place. The following is an 
example for 2 significant digit truncating: 

A = 1035.55534 
A = INT (A * 100) / 100 
PRINT A 
1035.55 

The above merely moves the number two places to the left, 
chops off the fractional part, and then moves it back two 
places to the right. However, this is not rounding but 
rather truncating, which is not the same. For rounding, we 
must first decide what degree of rounding is desired. Most 
often, numbers are rounded to 2 decimal places, or "to the 
penny". Our example then becomes, simply: 

A = 1035.55534 

A = INT (A * 100 + .5) / 100 
PRINT A 
1035.56 

The same result would be accomplished by first adding .005 to 
A and multiplying that by 100, but BASIC is more accurate at 
decimal arithmetic that lies closer to the decimal point. 

Numbers that end up with 1 decimal or less will need 
trailing zeroes. Once again, this can be done with a string 
manipulation. For example: 

A = 1035.59534 

A = INT ( ABS{A) * 100 + .5) / 100) 

PRINT A 

1035.6 
S$ = CHR$ (32 - (V<0) * 13) 
A$ = MID$ ( STR$ (INT(A)) ,2) 
DP = INT ((A - INT(A)) * 100 + .5) 

A$ = A$ + "." + RIGHT$ ("00" + MID$ (STR$(DP) ,2) ,2) 
A$ = RIGHT$ (" .. + s$ + A$ ,10) 

PRINT A$ 

1035.60 

This probably looks sort of clumsy but it's designed to do 
everything; trailing zeroes; pos. and neg. rounding; and 
decimal point alligning. Notice that we've taken the 
ABSolute value of A before entering the routine. S$ will be 
either a space or a minus sign. Then we grab the INTeger 
part of A into A$. DP is used to take the decimal part of A, 
and round it on the left of the decimal point. Next we build 
it all together by taking the integer part, adding our own 
decimal point, followed by the decimal part. As usuall, the 
leading space is stripped off DP with MID$. "00" is added to 
this (remember, DP could have a value of say 04 or an even 0) 
and RIGHTS comma 2 gives us our 2 decimal places. Lastly we 
add some leading spaces (which could also be zeroes) and then 
we stick the sign S$ of the front. 
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Easy, right? Well, you might have done it differently 
but this was a string juggling exercise for the practice. 
For a formatting routine that's even more cryptic than this 
one, see Jim Eutterf ield' s PRINT USING in Transactor #1, 
Volume 3. 



Variable Flip-Flop 

Programs can be shortened a great deal with a little 
thought and an active imagination. For example, it is often 
necessary to set a flag if a condition is met or to 
compliment the flag. One might code: 

1200 IF FLAG=0 THEN FLAG=1 : GOTO 1220 
1210 FLAG=0 
1220 ... 

On consideration, the statement 

1200 FLAG = 1 - FLAG 
1210 ... 

will be seen to have the same effect. 



Screen Codes To ASCII 

This program is a screen dump routine which makes it 
possible to copy the contents of the screen onto the printer. 
This subroutine has been presented several times but we'll be 
looking at technique as opposed to operation. 

5000 OPEN 4, 4 

5010 FOR J = TO 999 

5020 P = PEEK (32768 + J) 

5030 GOSUB 5500 

5040 IF P< 64 THEN P=P+ 64 : GOTO 5090 

5050 IF P<126 THEN P=P+128 : GOTO 5090 

5060 IF P<128 THEN P=P+ 64 : GOTO 5090 

5070 IF P<191 THEN P=P- 64 : GOTO 5090 

5080 IF P=255 THEN P = 191 : GOTO 5090 

5090 PRINT #4, CHR$ (P) ; 

5100 X=X+1 : IF X=40 THEN PRINT#4 : X=0 : F=0 

5110 NEXT 

5120 CLOSE 4 

5130 RETURN 

5500 REM REVERSE FLAG 

5510 IF F=l AND P>127 THEN 5550 

5520 IF P>127 THEN F=l : PRINT#4 , " [RVS] " ; : GOTO 5550 

5530 IF F=0 AND P<127 THEN 

5540 IF P<127 THEN F=0 : PRINT#4 , " [RVS OFF] " ; :GOTO5550 

5550 RETURN 

As you can see, the routine begins PEEKing the screen 
into P. The subroutine at 5500 deals with reverse field 
characters. Then P is converted to its corresponding CHR$ 
value and it's sent to the printer. Lines 5010 and 5100 are 
set up for 40 columns but this can easily be changed to 80. 
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Now let's have a closer look at those five nasty IF 
statements. If we look at the differences between PEEK/POKE 
codes and ASCII, it becomes apparent that only the 3 most 
significant bits (bits 5 [32], 6 [64], and 7 [128]) are 
changed. "Aha, a bit of boolean algebra will solve this 
problem!" Using the OR and AND functions, it is possible to 
make the conversion with just one line! Thus if 
P=PEEK(32768) , the top left corner of the screen, then: 

C = (P AND 127) OR ((P AND 64) *2) OR ((64-P AND 32) *2) 

where C is the corresponding ASCII character. Here's the new 
program: 

5000 OPEN 4, 4 : T=40 : S=3276 8 

5010 FOR J = S TO 33767 : P=PEEK(J) 

5020 R$ = CHR$(146-(PAND128)) 

5030 R$=LEFT$(R$,-(P>127ANDPEEK(J-l-( J=S) ) <1280RP<128AND 

PEEK(J-1-(J=S))>127)) 
5040 P={P AND 127)OR((P AND 64) *2) 0R( (64-P AND 32) *2) 

-((PAND127)=0)*64 
5050 PRINT#4, R$;CHR$ (P) ; 

5060 IF (J-32807)/T = INT( ( J-32807)/T) THEN PRINT#4 
5070 NEXT : CL0SE4 

The extra little bit at the end of 5040 takes catre of "@" 
signs that have a screen code of zero. Lines 5020 and 5030 
generate a RVS ON or RVS OFF character and then decide wether 
to send it or not (5030). This is dependent on the field of 
the last character. The routine has one bug though; if 
quotes are printed to the printer, any RVS or RVS OFF 
characters sent will appear literally. If you expect there 
may be quotes, you'll need to modify so that a CHR$(141); is 
sent to do a carriage return with no line feed. Then you'll 
need to position back to where you left off. 

This routine is dreadfully slow but it was meant to be a 
exercise in boolean algebra. Several screen print utilities 
have been released that are in machine code. (KEYPRINT, 
Compute! and TPUG Club Library) 

Abacus 

My final program has no application apart from fun. It 
is a pseudo abacus or bead counter. 
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NEXT 








NEXT 








NEXT 


;FOR 


40 


COL 


NEXT 


:FOR 


80 


COL 



100 POKE 59468, 14 : PRINT "[CLR] ABACUS" : Q=12 : D=9 

110 E=102 : L=64 : B=81 : R=13 : X=14 : S=l 

120 FOR 1=1 TO 9 : PRINT CHR${230) 

130 FOR J=l TO I : PRINT CHR$(209) 

140 FOR J=I T022 : PRINT CHR$(192) 

150 PRINT CHR$(230) : NEXT I 

160 FOR 1=1 TO 9 : P( I) =33179-1*40 

160 FOR 1=1 TO 9 : P( I) =33579-1*80 

17 C=S : REM SETS ROW TO 1 

180 P=P{C) : REM SET SCAN LINE POSITION 

190 IF PEEK(P)=L THEN P=P-S : GOTO 190 

200 IF PEEK(P)=E THEN 230 

210 POKE P, L : P=P+S : POKE P, B : IF PEEK(P+S)=L 

THEN 210 

220 GOTO 17 

230 T=D-C : FOR I=S TO X+C-S : POKE P(C)+R-I, L : 

POKE P(C)+Q-I-T, B : NEXT : C=C+S : GOTO 180 

Using variables instead of constants (100-110) gives a faster 
execution time: 

E = Edge POKE code for CHR$(230) 

the shade character 
B = Bead code 

S = Starting row (1 being bottom) 
L = Line POKE code (abacus bars) 

Lines 120-150 draw the initial display. The next job is to 
create an array with the poke addresses of the mid points of 
each row. The array must match the position of the initial 
display. If you want to move it, you'll also have to modify 
line 160. 

Lines 170 onward do the rest. The routine uses a 
scanning technique that scans from the middle of the bottom 
row moving left (190) until it finds something that is not a 
line. If it is a bead then line 210 pushes that bead along 
the bar until that bead hits something that is not the bar 
(either the right hand edge or another bead) . If it finds 
the left hand edge before finding a bead (200) then it knows 
that all of the beads have been moved over to the right. Now 
it moves them all back and pushes one over to the right on 
the next row up (240, 180 & 190). 

One thing I found is that the beads move very fast. If 
you want to slow them down, add a delay loop in 190: 

190 IF PEEK(P)=L THEN P=P-S : FOR 1=1 TO 20 : NEXT : 
GOTO 190 

I will leave you with a final puzzle - hov/ long will it take 
before the top bead moves? 
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VIC-20 Cartridge Development 



Paul Higginbottom 
Commodore Canada 



Power-Up Activity 

When the VIC-20 is powered on, it looks for a sequence 
of bytes in a place in memory, which will tell the computer 
whether or not there is a cartridge plugged in. If this 
pattern of bytes is not present, the VIC goes about its usual 
chores, and comes up with the familiar message: 



(may be a different amount) 



Hex 


Hex 


Address 


Con 


$A004 


$41 


$A005 


$30 


$A006 


$C3 


$A007 


$C2 


$A00 8 


$CD 



**** CBM BASIC V2 **** 

3583 BYTES FREE 

READY . 

The Sequence of Bytes 

The sequence of bytes the VIC-20 is looking for are 
located from $A004 to $A008. They should contain: 

CBM ASCII 
Contents Equivalent 



"0" 
"C" 

"B" 
"M" 



To recap then, "aOCBM" is the sequence. If the VIC does see 
this sequence, what does it do? Well, that's what the first 
four bytes from $A000 to $A003 are for. If the VIC sees the 
sequence, it will hump indirectly through $A000, ie. using 
the vector at $A000 as a power up address. In laymans terms, 
this means wherever your code is that you want to execute at 
power-up, the address of it should be stored in "low, high" 
format at $A000 and $A001. This will be known as the 
"cartridge cold start vector". 

That still leaves $A002 and $A003. They form another 
vector called the "cartridge warm start vector". This will 
be vectored through whenever an "NMI" interrupt occurs. For 
those that are not aware of this, the RESTORE key actually 
generates an NMI interrupt, and so it may be used to re-start 
a game, or better still if pressed while holding down another 
key simultaneously (usually RUN/STOP) to avoid accidental 
re-starts. 
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An example in assembly coding might be: 
*=$A000 

WORD COLD ;L0V7, HIGH VECTOR TO FIRST INSTRUCTION 
WORD WARK ;LOW, HIGH VECTOR OK "WARM START" 

BYT $41, $30, $C2, $C3 , $CD 

IGNORE NMI INTERRUPTS 

WARM PLA 
TAX 
PLA 
TAY 
PLA 
RTI 

COLD <- CARTRIDGE CODE STARTS HERE. 



BASIC Programs in a Cartridge 

It is inadvisable to try to "RUN" BASIC programs out of 
a cartridge. A com.promise would be to do the usual power-up 
activities (ie. test RAM, etc.) and then "move" the BASIC 
program from the cartridge to RAH, and execute (probably 
easiest to do by putting a RUN<RETURN> in the keyboard 
buffer) . It is also inadvisable to put BASIC in a cartridge 
anyway because of the hazard of someone putting the code onto 
a more "transportable" medium such as tape or disk. This can 
be partially avoided by disabling the RUN/STOP key, and the 
RESTORE key by using the V7ARM start vector, and changing the 
IRQ vector into the cartridge. 



Cartridge Standards 

Here are some standards that have been laid out for 
operation of cartridge software: 

1. Users should have the opportunity to adjust the screen 
before commencing; horizontal adjust ($9000) using the 
cursor left/right key and vertical adjust ($900Z ) using 
cursor up/dov/n, 

2. Where applicable, games should have both keyboard and 
joystick/paddle control. The keys to use are: 



Up 



- "fire" 



Left - L 
Down 



; - Right 



Also where applicable, Fl and F3 are used to choose 1 or 
2 players. Afterwards, Fl is used to start play action. 
Provide about a 5 second delay between "Play Player 1" 
and "Play Player 2". 

Function key 7 should flip interlace mode. Some TVs scan 
every raster "one after another". Other TVs scan every 
second raster, then go back and do the "in between" 
rasters. The VIC chip can provide for this by simply 
setting or unsetting bit 7 of $9000. The user will 
decide which looks best. 

Finally, the combination of the RUN/STOP and RESTORE keys 
should re-boot the game, as if power were interrupted. 




Discover how easy it is 

for you to get useful 

results from your VIC. 



Understanding Your VIC Volume 1: Basic 
programming uses a proven step-by-step approach 
to teach programming. It costs S1 1.95 

A cassette tape with two demonstration programs 
from the book is available for S7.95 It will save you 
typing time and eliminate typing errors. 

VIC Software 

Easy to use program for you to create new 
characters for graphics or games. Cassette S9.95. 



See your dealer or order direct 

VISA/MC accepted 

Money back guarantee 

Please add S2 (S8 overseas) 

for shipping and handling 



TIS INC. 




Total Information Services. 
Box 921. Dept. CM 
Los Alamos. NM 87544 



Dealer inquiries invited 
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A Little VIC Music. Jim Butterfield, Toronto 

The following program plays music on the VIC. It's the 
simple round, Frere Jacques. The music is listenable, and 
the program is worth looking at, too. 

You'll note that the three voices of VIC are different. 
Voice three is sharper, and is better for carrying the tune. 
Voice one is the softest. 

Hope you don't mind my breaking up the listing with comments. 

90 REMARK: FRERE JACQUES /JIM BUTTERFIELD /DECEMBER 81 
This tells you who to blame. 

100 DIM A(8) 

Makes room for eight voices. How come? We only have 
three voices on the VIC and four "lines" in the song. 
V7atch for the trick. 

110 POKE 36 87 8,8 

Set volume (for maximum use ,15) 

120 FOR A=5 TO STEP -1 

Here's our main loop. We're going to play the tune six 
times. 

130 T=TI+S 

140 IF TKT GOTO 140 

This waits for time "S" before allowing the program to 
continue. The time is measured in "jiffies": units of 
1/60 second. 

150 READ S, A(A+0), A(A+1) , A(A+2) , A(A+3) 

Here comes the song data. It's taken from the DATA 
statements near the end of this program. We're reading 
the data into the table cleverly; this way, each voice 
"comes in" at the proper time. 

160 POKE 36874, A(3) : POKE 36875, A(4) : POKE 36876, A(5) 

Play the music! This puts the notes into the VICs 
playing electronics. 

170 IF SOO GOTO 130 

If there's no more music to play, variable S will become 
zero (from the DATA statement at line 1120) V7e may want 
to do it again, though. 

180 RESTORE : NEXT A 

RESTORE takes us back to the start of the data 
statements (line 1000) so that we can play it again if 
we wish. NEXT A takes us back for the six repeats. 

190 POKE 36878,0 : END 

Turn down the volume and quit. The END statement isn't 
really needed here, but it's good practice. 

The rest of the program is our DATA statements 
containing the music. It's set up with a timing value 
followed by the four "parts". By careful reading of the 
program, you may be able to v;ork out how the different 
voices come in during the repeats (hint: the key to the 
trick is in lines 150 and 160) . 
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1000 


DATA 


10, 


195, 


207, 


215, 


195 


1010 


DATA 


10, 


195, 


207, 


219, 


195 


1020 


DATA 


10, 


201, 


209, 


215, 


175 


1030 


DATA 


10, 


201, 


209, 


209, 


175 


1040 


DATA 


20, 


207, 


215, 


207, 


195 


1050 


DATA 


20, 


195, 


215, 


195, 





1060 


DATA 


10, 


195, 


207, 


215, 


195 


1070 


DATA 


10, 


195, 


207, 


219, 


195 


1080 


DATA 


10, 


201, 


209, 


215, 


175 


1090 


DATA 


10, 


201, 


209, 


209, 


175 


1100 


DATA 


20, 


207, 


215, 


207, 


195 


1110 


DATA 


20, 


195, 


215, 


195, 


195 


1120 


DATA 


0, 


0, 


0, 


0, 






It's not very big, but it's interesting to see how the coding 
comes together. Check Appendix F of your VIC-20 Friendly 
Computer Guide and you'll see how to set up the notes. Write 
your own music. If you like programming you might want to 
try your hand at writing a program which allows DATA 
statements to be written in easier form. For example, line 
1000 might be written as DATA 10,C,E,G,C .. but your program 
will need to be smart enough to catch the letters and 
translate them into the appropriate numbers. 

Music doesn't have to stand by itself, of course. You could 
add it as an extra touch to games and animations. Looking at 
it the other way, you could add to the music - how about a 
"bouncing ball" program that lets you sing along with VIC? 

You can get some nice effects from the VIC, although you'll 
never quite achieve orchestra quality sound. I can recall 
showing a group of users some simple music coding on the VIC. 
At one point, I played a simple rendition of "Dixie", and 
noticed a listener who had tears in his eyes. I was touched. 
I asked him, "Are you a Southerner?" 

"No," he replied. "I'm a musician." 

I guess you can't win 'em all. 




-y^'^DOJ 
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Another Voice For The VIC-20 Andy Finkel 

Cominodore U.S.A. 

Norraally, your VIC has 4 musical voices... three music 
registers and a white noise register. But by connecting a 
small amplifier to the User Port, and doing a little 
programming, you can get another musical voice. 

The User Port on the VIC is very similar to the PET User 
Port. This makes it easy to adapt some of the PETs music 
methods to the VIC-20. 

Background - Adding Sound to Older PET/CBMs 

Before Commodore introduced the CBM 8032 with a built-in 
speaker, most PET/CBM users had to develop their own means of 
getting their computers to squeek, hum, whistle, and sing. 
They came up with the idea of using the User Port to send 
square waves through an external amplifier/speaker 
combination. The shift register could be programmed through 
BASIC, giving a wide variety squeals, pops, sirens, etc. 

Theory 

Most music is made up of square waves of different 
amplitudes and frequencies. One of the functions of the 6522 
chip is to generate square waves through the CB2 line. If we 
connect the CB2 line to a speaker, we will be able to hear 
the square waves generated by the VIC. 

NOTE: Connecting a speaker directly to CB2 may damage your 
VIC and void your warranty. You must connect the speaker 
through an amplifier to protect the VIC. See Transactor #6 
for a simple amplifier circuit. 

BASIC Program Steps 

1. Set the 6522 shift register to free running mode by 
typing: 

POKE 37147, 16 

2. Set the shift rate by typing: 

POKE 37144, C 

...where C is an integer from to 255. C is the note to 
be played. 

3. Load the shift register by typing: 

POKE 37146, D 

...where D = 15, 51 or 85 for a true square wave. This 
step also sets the octave for the note. 

This step must be done last, since as soon as it is set, the 
VIC starts generating the square waves. 
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The frequency ot tne square wave can be found by tne 
following formula: 



FREO = 50000 Hz 
(C+2)*(D1) 



where Dl=8 when D=15 
Dl=4 when D=51 
Dl=2 when D=85 



When you're in this mode, the VIC will not read or write to 
cassette. To restore normal operation, just type: 

POKE 37147, 
Here are some pre-calculated values for C: 



Bb = 251 


B 


s= 


124 


C = 237 


CI 


= 


117 


C# = 224 


Cl# 


= 


111 


D = 211 


Dl 


= 


104 


D# = 199 


Dl# 


= 


99 


E = 188 


El 


= 


93 


F = 177 


Fl 


= 


88 


F# = 167 


Fl# 


= 


83 


G = 157 


Gl 


= 


78 


G# = 149 


Gl# 


= 


73 


A = 140 


Al 


= 


69 


At = 132 









The following short program demonstrates music using this 
method. By hitting a letter, a note will be played. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

20O 

210 

220 

230 

240 

250 

260 

270 

280 



PRINT 
REM A 
PRINT 

PRINT "[DN] 
POKE 37147, 
DIM A(14) 
FOR 1=1 TO 
READ A(I) 
NEXT 
DATA 124, 
DATA 251, 
GET A$ : 
IF A$="! 



"MUSIC USING CB2" 

TO G IS ONE OCTAVE, SHIFT A TO G IS ANOTHER 
"HIT + TO GO UP AN OCTAVE, - TO GO DOWN" 
! TO EXIT." 



USE 
16 

14 



117, 
237, 



104, 
211, 
IF A$="" THEN 200 
" THEN POKE 37147, 



93, 
188, 



88, 
177, 





78, 
157, 



69 
140 



: END 
GOTO 
GOTO 



200 
200 



IF A$="+" THEN SF=SF-{SF<2) 

IF A$="-" THEN SF=SF+(SF>0) 

A=ASC(A$)-64+(ASC(A$) >192) *121 

IF A>14 OR A<1 THEN 200 

POKE 37144, A(A) 

POKE 37146, -(SF=0)*15-(SF=1)*51-(SF=2) 

GOTO 200 



'85 
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Joystick Control on The VIC-20 



Andy Finkel 
Commodore U.S.A. 



Like all other input and output, the joysticks are 
controlled using the VIC's 6522 versatile interface adapters 
(VIAs) . The 6522 is a versatile and complex device. 
Fortunately, it isn't necessary to delve deeply into the 
mysteries of the 6522 VIA to read the joysticks. 

Each 6522 has two Input/Ouput ports, called port A and 
port B. Each of the ports has a control register attached 
called the DATA DIRECTION REGISTER (DDR) . This highly 
important register controls the direction of the port. By 
using this register, you can use the port for input, output, 
or both at the same time. To set one bit of the port to 
output, set the corresponding bit of the Data Direction 
Register to a 1 . To set a bit of the port for input, set the 
corresponding bit of the DDR to 0. For example, to set bit 7 
of port A to input and the rest of the bits to output, POKE a 
127 into the DDR for port A. 

To read the joystick, one port (and one DDR) of each of 
the 6522 VIAs on the VIC must be used. 

The joystick switches are arranged as follows: 



TOP 



FIRE BUTTON 
Switch 4 

(FR) 



Switch 

(SO) 



Switch 2 
(S2) 



Switch 3 

(S3) 



(SI) 
Switch 1 



Switch 0, switch 1, switch 2 and the Fire button can be read 
from VIA #1, which is located beginning at $9110. Switch 3 
must be read from the other 6522 which is located at $9120. 

Now, the key locations for the joystick are as follows: 

Hex Decimal Purpose 

9113 37139 Data Direction Register 

for I/O Port A on VIA #1 

9111 37137 Output Register A 

Bit 2 - Joy switch 
Bit 3 - Joy switch 1 
Bit 4 - Joy switch 2 
Bit 5 - Fire button 



9122 37154 Data Direction Register 

for I/O Port B on VIA #2 

9120 37152 Output Register B 

Bit 7 - Joy switch 3 
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To read the joystick inputs, you first set the ports to 
input mode by setting the DDR to 0. This can be done by a 
POKE. Then the value of the switches can be read with two 
PEEKS. Sounds easy, right? There is only one problem... 
VIA #2 is also used for reading the keyboard. Setting the 
DDR can disrupt the keyscan rather badly. So you have to 
make sure you restore the DDR to its original condition if 
you want to use the keyboard afterwards. 

To make thing really easy, you can use the following 
program. Lines 10 to 40 are initialization. The rest of the 
program, beginning at line 9000, can be called as a 
subroutine whenever you want to read the joystick. 

10 DIM JS (2,2) : POKE 37139, 

15 DD=37154 : PA=37137 : PB=37152 

20 FOR 1=0 TO 2 

25 FOR J=0 TO 2 

30 READ JS (J, I) 

35 NEXT J, I 

40 DATA -23, -22, -21, -1, 0, 1, 21, 22, 23 

50 GOSUB 9000 

60 PRINT JS (X+1, Y+1) 

70 GOTO 50 

9000 POKE DD, 127 

9010 S3=-( (PEEK(PB) AND 128)=0) 

9020 POKE DD, 255 

9030 P=PEEK(PA) 

9040 Sl=-( (P AND 8)=0) 

9050 S2=-( (P AND 16)=0) 

9060 S0=( (P AND 4)=0) 

9070 FR=-((P AND 32)=0) 

90 80 X=S2+S3 : Y=S0+S1 

9090 RETURN 

The variables SO, SI, S2 and S3 will be normally, and will 
be set to 1 (or -1) when the joystick is pointed in that 
direction. Two of the variables will be set to 1 on diagonal 
moves. FR will be 1 when the Fire button is pressed, and 
otherwise. 

The AND function is used to pick out one bit of the jpystick 
port. The bits are numbered from 7 (most significant bit) to 
(least significant bit) . By ANDing the 6522 port with a 
number whose value is a power of two, a single bit is 
selected (For example, to pick out bit 3, AND with 2, 3 or 8) 

The JS array in the program is set up to make it easy to 
move around the screen using the joystick. The numbers in 
the DATA statement of line 40 can easily be changed for other 
purposes. For example, to decode the joystick in this 
pattern: 

TOP 



7 I 1 

6-8-2 

5 1 3 

4 

...the DATA statement should be changed to: 

40 DATA 7, 0, 1, 6, 8, 2, 5, 4, 3 



Computer Haaic Michael Tomczyk 

Commodore U.S.A. 

Writing programs for Commodore's VIC-20 is a lot like 
performing magic. The results are certainly astounding, and 
your friends are sure to be amazed! 

Actually, computing isn't much different from magic if 
you're talking about illusions. For example, the VIC 
automatically tells you if you make a programming mistake by 
displaying an "error message" on the screen. That doesn't 
mean there's an "intellectual rabbit" hiding under the 
keyboard. It simply means the VIC-20 is a "logical" machine. 

We're going to explore the VICs peculiar logic - and 
some magic too. This article v;ill focus on elementary 
programming to show first-time computer owners how to 
COMPUTE, with secondary emphasis on hard-line programming. 
The philosophy is: "You don't have to know how to repair a 
car in order to drive one; likev;ise, you don't have to be a 
computer scientist to "drive" the VIC-20." 

That's the beauty of Commodore's "friendly computer." 
It's easy to learn, fun to "drive", and you don't need a 
license (or PhD.) to use it. 

Everyone likes to perform magic v/ith their new computer, 
but doing these neat tricks the salesperson showed you in the 
store doesn't seem so easy when you get the thing home. 

Here are some of the favourite programs of Commodore's 
"VIC Group". These programs are not only fun, but they 
incorporate some helpful computing techniques which you might 
want to mix, match, and experiment with. Most of these 
programs are explained in the VIC owners guide. 

Before we begin, here's a quick refresher on how to 
enter a program into the VIC-20. 

1. Type the program line-by-line as shown, including the 
line number. 

2. Hit the RETURN key at the end of each line. 

3. Type the word RUN and hit RETURN to make the program 
execute. 

4. To stop a program which is "running", hit the RUN/ STOP 
key. 

5. You can RUN a program over and over by STOPping it and 
typing RUN (because the program stays in the VICs memory 
when you type it in) . 

6. Before typing in a new program, type the word HEW and hit 
RETURN to erase the old program. 

7. If a program "hangs up", hold down the RUN/ STOP key and 
hit the RESTORE key. This resets the VIC without losing 
the program. 
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VIC Trick #1; 255 Colours 

10 FOR X=0 TO 255 

20 POKE 36879, X 

30 PRINT CHR$(147) 

40 FOR T=l TO 700 : NEXT T 

50 NEXT X 

This little program displays the VICs 255 screen and border 
colour combinations. It's useful because you can go through 
all 255 combinations step-by-step, and find the colour 
combination you like best for a particular program. The POKE 
command in line 20 is the key. RUN the program until you see 
a color combination you like. Hit the RUN/STOP key to freeze 
the colours. Now type PRINT X, and record the value of X for 
future reference. Type CONT and hit RETURN to continue the 
program where it left off. This is the lazy approach to 
choosing colours. The best way is to check page 37 or 134 in 
the VIC owners guide. 



Vic Trick #2: The Rolling Screen Window 

10 POKE 36867, 4 
20 PRINT CHR$(147) 

30 PRINT "YOUR MESSAGE HERE ' 

40 FOR X=0 TO 120 
50 POKE 36865, X 
60 NEXT 
70 GOTO 30 



You can change the screen window of the VIC-20 by using some 
of the special POKE commands, which change the size and 
position of the VICs screen window. This little program 
makes use of these commands to make your messsage scroll 
downward across the screen. The message in line 30 should be 
22 characters long. Try typing 22 hearts (hold down the 
SHIFT key and type S) instead of a message. 



Vic Trick #3; The Seasick Program 

10 PRINT CHR$(147) "SEASICK" 
20 FOR L = TO 6.28 STEP .1 
30 POKE 36864, 5 + 4 * SIN(L) 
40 POKE 36865, 27 + 4 * COS(L) 
50 NEXT 
60 GOTO 20 

This program makes the screen move around... and around... 
and around. We call it the Seasick Program because that's 
how you might feel if you stare at it too long. The 
programming magic here is the VICs ability to move the screen 
horizontally and vertically using POKE statements. 
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Vic Trick #3; Drawing A High Resolution Circle 



767 9 : POKE S, : NEXT 

: PRINT CHR$(147) 

8185 : POKE S, 16 : NEXT 



H=0 TO 
L, L*8 



M 



10 FOR S=716 8 TO 

20 POKE 36879, 8 

30 FOR S=7680 TO 

40 POKE 36869, 255 

50 FOR L=0 TO 7 : FOR 

60 POKE 76 80 + M*22 + 

70 NEXT M, L 

80 FOR X=0 TO 63 

90 Yl=32 + S0R(64*X-X*X) 

100 Y2=32 - SpR(64*X-X*X) 

110 FOR y=yi TO Y2 STEP Y2-Y1 

120 CH=INT(X/8) * 8 + INT(Y/8) 

130 R0=(Y/8 - INT(Y/8))*8 

140 BY=716 8 + 8*CH + RO 

150 BS=7-(X-INT(X/8)*8) 

160 POKE BY, PEEK (BY) OR (2tBS) 

170 NEXT Y, X 

180 GOTO 180 : REM FREEZE PROGRAM 



This 18 line program looks like a lot... but it does a lot. 
This is our first program that actually draws something on 
the VIC-20 screen in high resolution, dot programmable 
graphics. Dot programmable graphics are different from VIC 
graphics, in that VIC graphics are made up of 8x8 dot blocks 
(64 dots per block). Dot programming lets you access each 
dot individually, and "draw" in high resolution. The 
mechanics of how to do this are discussed in the VIC-20 
Programmers Reference Guide. But, if you really want to get 
into programmable graphics and plotting, we suggest the 
VIC-20 Super Expander Cartridge. This special cartridge 
gives you 3K of extra RAM and adds several new commands to 
VIC BASIC that let you plot individual points, lines, arcs 
and circles... and even let you "paint" closed figures on the 
screen in colour! The Super Expander also has built-in music 
v;riting commands and a special "music mode". 

We hope this brief "magical" introduction to the VIC 
gives you some interesting programs to experiment with. If 



you have a particular 
drop a line to: 



topic you'd like us to discuss, please 



VIC Magician 
Commodore Magazine 
6 81 Moore Road 
King of Prussia, PA 
19406 
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VIC Loader For PET/CBM David A. Hook 

Barrie, Ontario 

Purpose: 

As the VIC-20 becomes more popular, it's likely that 
users will be exchanging tapes with PET/CBM users. Many 
people may have a VIC at home, whereas their school or 
business is equipped with PET/CBM machines. 

The VIC has several possible memory configurations, 
based on what is plugged into the expansion port. The 
"Start-of-Basic" may be at any of three locations (so far!). 
To allow for this, the VIC ROMs use a "relocating loader" to 
place the tape program into memory. Therefore, it merrily 
accepts BASIC programs saved on either PET/CBMs or other 
VICs, regardless of the machine used to SAVE it. 

Not so for the program saved on the VIC that is 
subsequently loaded into a PET/CBM! BASIC programs are 
expected to be found at decimal 1025 ($0401). Only one of 
the VIC memory arrangements would have put it there (3K 
expansion cartridge) . 

After the LOAD, you may not find anything there when you 
do a LIST. A couple of tricks have appeared in print to 
adjust the PET "pointers", but these presumed VIC 
start-of-Basic at 4097 decimal ($1001). This only works if 
it was SAVEd with the "as-delivered" 5K unit. 
(POKE 4096,0 :POKE 41,16 :CLR was one of these). 

If the above tv/o things still didn't work, you could try 

POKE 4608,0:POKE 41,18:CLR. A LIST command would now 

probably show the VIC program, and allow you to modify the 
program. 

However, a SAVE to a PET disk would leave you in the 
same dilemma next time. 

Why not a loader program which takes account of these 
posibilities? It should load the VIC program into the normal 
PET BASIC area, v/ithout the above headaches. 

A further incompatibility v/ith the VIC is also overcome: 

The VIC operating system allows you to save "program 
files" which are NOT relocated by the VIC on loading. 
Machine-language programs and user-defined character sets are 
two things that SHOULD NOT be parked at a variable address. 

A special tape header is written by the VIC when this 

type is saved. The PET doesn't digest this, so any attempt 

to LOAD one of these will be ignored by the PET's operating 
system. 
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Jim Putterfield's "TINYMON" for VIC uses this "absolute 
Icac" feature for any SAVEs of meinory. My adaptation of his 
Supermon (for VIC) also copies this technique. 

This loader v/ill accept such tapes into the PET, placing 
then at the same address and reporting start/end locations in 

hexadecimal. 



Procedure : 

You'll need to do this in three stages: 

1) Type in the BASIC portion and save it to tape or disk. 

2) Enter the machine-language monitor, typing a bunch of 
hexadecimal numbers. Save this part separately, too. 

3) Combine the two, then SAVE the composite program. 

I'll attempt to lead the way through the puzzle... it's 
not too long a process. 

Step 1: 

If you have Original ROMs (BASIC 1.0), you may retire 
early. This won't work. For all others, turn your machine 
off and back on again. 

Type in the BASIC portion, by following the printed 
listing exactly. Don't leave out anything or insert any 
extra either. Those cursor movement mnemonics should be 
replaced by their corresponding characters (ie. CLP=Clear 
Screen, DK=Cursor Down, etc). VJhen you are finished, 
'?FRE(0)' to check available memory. For 16K this should be 
14809 bytes free, and for 32K, 31193 bytes free. Check 
carefully if you are more than a few different than this. 

Do NOT attempt to RUN this yet. (If you cannot resist 
the urge to check it, put a 'REM' in front of the 'SYS' 
instruction first) . 

Save this program to tape or disk, as file name 
"VL.BAS". Verify it normally. (Did you remember to delete 
the 'REM' that you inserted?). 



Step 2 : 

Consult the "hex dump" of the program^, which accompanies 
this article. 

Type 'SYS4' to enter the M.L. monitor. Don't be 
intimidated by the unfamiliar display... this won't take 
long. 
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Beside the ".", type the following: 

K 06 40 06F0 <RETURN> 

The screen will fill with lots of numbers and letters. 
Change the values to match the data in the hex dump. Don't 
forget to hit 'RETURN' at the end of each line. A 
double-check may save later grief. 

When this screen is done, type: 

M 06F8 07B0 <RETURN> 

Enter the correct values from the table, and 
double-check. 

Nov; we are ready to save this part, so type: 

S "0:VL4. ML", 08, 0640,0738 (Drive #0 on disk) 
S "VL4. ML", 01, 0640,0738 (Tape #1) 

EASIC 4.0 users can proceed to Step 3. Upgrade (BASIC 
2.0) users need to make the following corrections. Type the 
instructions, then alter the bytes that are displayed to 
match those below: 

M 0728 072F 
.: 0728 20 56 F6 20 12 F8 20 OA 

M 0738 073F 
.: 0738 00 20 97 F4 DO 08 4C 6E 

M 07 5E 076A 

.: 07 5E 6A E7 A9 2D 20 D2 FF 20 
.: 0766 97 E7 20 6A E7 38 50 28 

M 07 97 07 93 

.: 0797 B9 F3 4C DD F3 A5 9D 48 

M 07 AO 07 AF 
.: 07A0 55 F8 AO 00 00 Bl D6 C9 
.: 07A8 03 PO 03 4C BO F5 4C BC 

Mow we are ready to save this part, so type: 

S "0:VL2.ML",08,0640,07B8 (Drive #0 on disk) 
S "VL2, ML", 01, 0640, 0738 (Tape #1) 
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step 3: 

Get back to BASIC, by typing: 

X < RETURN > 

Reload "VL.RAS" follovjed by the proper "VLn.ML" (n=2 or 
n = 4) . Save the composite program V'/ith a normal BASIC SAVE 

coiTiUand. 

Do not make any adjustments to the BASIC portion. It 
would move the machine language too... and goodbye forever!!! 

Barring mistakes, you should be ready to make a go of it 
nov.'. 



Operation: 

Type 'RUN' and the program will relocate the 

machine-language portion. It moves up to high-memory 

automatically, correcting the necessary pointers. BASIC v;ill 
not interfere with its operation. 

On the screen, the necessary 'SYS* address will be 
displayed. Copy this dov/n, as it will permit you to 
disengage the routine with the same 'SYS' call. 

The routine is nov; active. To load a VIC tape into the 
PET, type: 



<V "FILE NAME" <RETURN> 



The "<" must be in the first column of a screen line or 
the PET will ignore it. The "file name" is optional — if 
omitted, the load v;ill be done on the first program found. 

You v;ill get the normal messages, ie. 'PRESS PLAY...', 
so follow normal procedure. When the 'READY' message appears 
and the cursor returns, you can LIST/edit/reSAVE just as if 
it were entered on the PET in the first place. 

If the program was of the special, "absolute load" 
variety, the PET will load it in the same spot in memory it 
was SAVEd at (on the VIC). However, alongside the file name, 
the start and end address (in hex) v;ill be printed. This 
will flag this type of load, and allow you to find it more 
easily in the PET memory. In3; Both TINYHON and SUPERHOH 
for the VIC save memory using this "absolute load" feature of 
the VIC-20. The PET would ignore the file, without this 
program. 
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That's about it. I was able to use this myself on 
VIXEL#1 (The Code Works) the day after it was finished. It's 
pretty handy to move VIC programs to PET disk, as a compact 
back-up medium. 

David A. Hook 
58 Steel Street 
EARRIE, Ontario 
L4M 2E9 
(705) 726-8126 



Editor's Note 

If you're wondering why the source code for Daves' Vicloader 
doesn't match the hex dump, it's because they don't! The 
BASIC portion of the loader is immediately followed by Jim 
Butterf ields' machine code relocator. After this comes 
Daves' code which still looks somewhat different from the 
source output since Jims' relocator demands a specific 
format. Perhaps JB will document his relocator in a future 
article so that other ML programmers may include it with new 
utilities. 



Getting Acquainted 
With Your VIC20 



Getling Acquainted With Your VIC20 by Tim Hartnell leads 
the reader, step by simple step, from the absolute basics of 
programming the VIC to writing complex, sophisticated 
programs It thoroughly describes use of the sound, music 
and color graphics capabilities and illustrates the use of 
these functions in over 60 programs and games. 

By following the comprehensive explanation given for 
each program and computer function, the reader will learn a 
great deal about the VIC. the Basic language and micro- 
computers in general 

Parents and teachers will find ttie section VIC as a Teacher ' 
a valuable aid in making the most effective use of the computer 
in the teaching/learning process. 

This book is a worthwhile resource and wilt help the reader 
make the most of his computer. The reader will never feel 
quite the same about it after surviving a round of FRENZY, 
or listening to the VIC20 compose a symphony'. 

Softbound. 132 pages. 5 1/2 " x 8". $8.95; add $1.50 for 
shipping and handling 

GPeative computing 



ATTN: Fiona 

39 E Hanover Avenue 
fvlorris Plains. NJ 07950 



Toll-free 800-631-8112 

InNJ 201-540-0445 
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LOAD VIC TAPES INTO PET 

FOR BASIC 4.0 ONLY 
AS OF FEBRUARY 21, 1982 

(C) DAVID A. HOOK 

5 8 STEEL STREET 

EARRIE, ONTARIO, CANADA 

L4M 2E5 (705) 726-8126 



PEL- 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM ALL COMMERCIAL RIGHTS RESERVED 

REM 

PRINT" [CLR RVS] "TAB{15) "VIC LOADER" 

SYS1600 

PRINT" [DN DN DN] - ACTIVATE OR CANCEL THE LOADER USING; 

SA=PEEK ( 52 ) +256 *PEEK ( 53 ) 

PRI NTTAB ( 1 ) " [ DN DN ] SYS ( " SA " ) " 

PRINT" [DM DN]- TO LOAD A VIC TAPE, TYPE:" 

PRINT" [DN DN]<V "CnR$ (34) "FILE N7vME"CHR$ ( 34) 

PRINT" [DN DN]- FILE NAME IS OPTIONAL. 

PRINT" [DN]- TYPE THE COMMAND AT COLUMN '0'." 



. : 0640 


A5 


2A 


85 


IF 


A5 


2B 


85 


20 


.: 0648 


A5 


34 


85 


21 


A5 


35 


85 


22 


. : 0650 


AC 


00 


A5 


IF 


DO 


02 


C6 


20 


.: 0658 


C6 


IF 


Bl 


IF 


DO 


3C 


A5 


IF 


. : 0660 


DO 


02 


C6 


20 


C6 


IF 


Bl 


IF 


.: 0668 


FO 


21 


85 


23 


A5 


IF 


DO 


02 


. : 0670 


C6 


20 


C6 


IF 


Bl 


IF 


18 


65 


. : 067 8 


21 


AA 


A5 


23 


65 


22 


48 


A5 


.: 0680 


34 


DO 


02 


C6 


35 


C6 


34 


68 


. : 06 88 


91 


34 


8A 


48 


A5 


34 


DO 


02 


. : 0690 


C6 


35 


C6 


34 


68 


91 


34 


18 


.: 0698 


90 


B6 


C9 


BF 


DO 


ED 


A5 


34 


. : 06A0 


85 


30 


A5 


35 


85 


31 


6C 


34 


. : 06A8 


00 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


. : 06B0 


BF 


AE 


FE 


FF 


00 


E4 


34 


AD 


. : 06B8 


FF 


FF 


00 


E5 


35 


BO 


OB 


86 


. : 06C0 


34 


86 


30 


AD 


FF 


FF 


00 


85 


. : 06C8 


35 


85 


31 


A2 


03 


B5 


78 


48 


. : 06D0 


BD 


FA 


FF 


00 


95 


78 


68 


9D 


. : 06D8 


FA 


FF 


00 


CA 


DO 


Fl 


60 


C9 


. : 06E0 


3C 


DO 


08 


48 


A5 


77 


C9 


00 


. : 06E8 


00 


FO 


08 


68 


C9 


3A 


BO 


EF 


. : 06F0 


4C 


7D 


00 


00 


20 


70 


00 


00 



. : 06F8 


C9 


56 


DO 


Fl 


A2 


01 


86 


D4 


. : 0700 


CA 


86 


Dl 


86 


9D 


A9 


02 


85 


.: 0708 


DB 


20 


70 


00 


00 


AA 


FO 


17 


. : 0710 


C9 


22 


DO 


F6 


A6 


77 


E8 


86 


.: 0718 


DA 


20 


70 


CO 


00 


AA 


FO 


08 


. : 0720 


C9 


22 


FO 


04 


E6 


Dl 


DO 


F2 


.: 0728 


20 


95 


F6 


20 


57 


F8 


20 


49 


. : 0730 


F4 


A5 


Dl 


FO 


OB 


20 


E7 


FF 


.: 0738 


00 


20 


D6 


F4 


DO 


08 


4C 


AD 


. : 0740 


F5 


20 


E7 


FF 


00 


FO 


F8 


A5 


. : 0748 


96 


29 


10 


DO 


4C 


EO 


01 


FO 


. : 0750 


ID 


EO 


03 


DO 


DE 


BD 


7B 


02 


. : 0758 


95 


FB 


CA 


10 


F8 


20 


17 


D7 


. : 0760 


A9 


2D 


20 


D2 


FF 


20 


44 


D7 


.: 0768 


20 


17 


D7 


B8 


50 


28 


AD 


7D 


. : 077 


02 


38 


ED 


7B 


02 


AA 


AD 


7E 


. : 077 8 


02 


ED 


7C 


02 


A8 


A5 


28 


8D 


. : 0780 


7E 


02 


A5 


29 


8D 


7C 


02 


8A 


. : 07 88 


18 


6D 


7B 


02 


8D 


7D 


02 


98 


. : 0790 


6D 


7C 


02 


8D 


7E 


02 


20 


F8 


.: 0798 


F3 


4C 


IC 


F4 


A5 


9D 


4 8 


20 


. : 07A0 


9A 


F8 


AO 


00 


00 


Bl 


D6 


C9 


. : 07A8 


03 


FO 


03 


4C 


EF 


F5 


4C 


FE 


. : 07B0 


F5 


4C 


31 


FF 


00 


08 


FF 


00 
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7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 



7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 
7F08 

7F08 



**************************************** 

* * 

* VICLOAD4.SRC5 * 

* FOR LOADING VIC FILES IN 4.0 PETS * 

* AS OF FEBRUARY 21, 1982 * 

* * 

* DAVID A. HOOK, 58 STEEL STREET * 

* BARRIE, ONTARIO L4H 2E9 * 

* CANADA (705) 726-8126 * 

* * 
**************************************** 

OP SYSTEM VARIABLES 



CR 

QUOTE 

TXTTAB 

FRETOP 

HEMS I Z 

CFIRGET 

CHRGOT 

TXTPTR 

ST 

VERCK 

FNLEN 

FA 

TBUF 

FNADR 

TMPO 

TAPEl 



WROA 

T2T2 

ZZZ 

CSTEl 

LD300 

FAF 

FAFl 

FAH 

PAHl 

FAH2 

OP160 

CONTLD 

LD16 

RDTAPE 

WRT 



$0D 


; CARR. RETURN 


$22 


; QUOTE CHAR 


$28 


r START OF BASIC 


$30 


■ STRINGS LOW LIMIT 


$34 


• TOP OF MEMORY 


$70 


■ GET A CHARACTER 


$76 


RE-GET LAST CHAR. 


$77 


CURRENT TEXT POINTER 


$96 


STATUS BYTE 


$90 


LOAD/VERIFY 


$D1 


FILENAME LENGTH 


$D4 


DEVICE NUMBER 


$D6 


POINTER TO TAPE BUFFER 


$DA ; 


FILENAME ADDRESS PTR 


$FB ; 


M.L.M. TEMP. POINTER 


$027A ; 


CASSETTE#1 BUFFER 


)UTINES 




$D717 


WRITE ADDRESS FROM $FB,$FC 


$D744 


SWAP TMPO & TMP2 


$F695 ; 


SET TAPE BUFFER POINTER 


SF857 


TAPE MSG 


$F449 


PRINT FILENAME 


$F4D3 ; 


FIND SPECIFIC FILE 


$F4D6 ; 


FAF+3 


$F5E5 ; 


FIND ANY FILE 


$F5EF 


FAH+10 (CONTINUE) 


$F5FB 


FAH+22 (ABS LOAD) 


$F5AD 


PRINT 'NOT FOUND" 


$F41C 


FINISH LOAD 


$F3F8 


LOAD FILE 


$F89A 


TAPE READ 


$FFD2 


PRINT CHARACTER IN R(A) 


$7F08 ; 


'SYS 32520' 



7F08 


AE 


FE 


7F 


VICLD 


LDX 


SART 


CHECK TOP OF MEMORY 


7F0B 


E4 


34 






CPX 


MEMSIZ 




7F0D 


AD 


FF 


7F 




LDA 


SART+1 




7F10 


E5 


35 






SBC 


HEHSIZ+1 




7F12 


BO 


OB 






BCS 


WARM 




7F14 


86 


34 




f 


STX 


MEMSIZ ; 


MUST LOWER TOP OF MEMORY 


7F16 


86 


30 






STX 


FRETOP 




7F18 


AD 


FF 


7F 




LDA 


SART+1 




7F1B 


85 


35 






STA 


MEMSIZ+1 




7F1D 


85 


31 






STA 


FRETOP+1 




7F1F 


A2 


03 




t 

WARM 


LDX 


#3 


SWAP OUT/ IN CHRGET ROUTI 


7F21 


E5 


78 




LOOP 


LDA 


CHRGOT+2 , 


X 


7F23 


48 








PHA 






7F24 


BD 


FA 


7F 




LDA 


CHRGOTA-1 


,x 


7F27 


95 


78 






STA 


CHRGOT+2 , 


X 


7F29 


68 








PLA 






7F2A 


9D 


FA 


7F 




STA 


CHRGOTA-1 


,x 


7F2D 


CA 








DEX 






7F2E 


DO 


Fl 






BNE 


LOOP 




7F30 


60 






STRTS 


RTS 






7F31 


C9 


3C 




V7EDGE 


CMP 


#"<" 


CHECK FOR 'UW^EDGE' 


7F33 


DO 


08 






BNE 


WG200 




7F35 


48 








PHA 






7F36 


A5 


77 






LDA 


TXTPTR 




7F38 


C9 


00 






CMP 


#0 


FIRST CHARACTER "?" 


7F3A 


FO 


08 






BEQ 


WCMD 




7F3C 


68 






WGIOO 


PLA 


7 


FINISH CHRGOT 


7F3D 


C9 


3A 




WG200 


CMP 


# " : " 




7F3F 


BO 


EF 






BCS 


STRTS 




7F41 


4C 


7D 


00 


/ 


JMP 


CHRGOT+7 




7F44 


20 


70 


00 


WCMD 


JSR 


CHRGET 




7F47 


C9 


56 






CMP 


# "V" 


'V MEANS VIC-LOAD 


7F49 


DO 


Fl 






BNE 


WGIOO ; 


EXIT 


7F4B 


A2 


01 




V7G300 


LDX 


#1 


SET TO CASSETTE* 1 


7F4D 


86 


D4 






STX 


FA 




7F4F 


CA 








DEX 






7F50 


86 


Dl 






STX 


FNLEN 




7P52 


86 


9D 






STX 


VERCK 




7F54 


A9 


02 






LDA 


#2 




7F56 


85 


DB 






STA 


FNADR+1 




7F58 


20 


70 


00 


WCIOO 


JSR 


CHRGET ; 


GET FILENAME IF PRESENT 


7F5B 


AA 








TAX 






7F5C 


FO 


17 






BEQ 


WC210 




7F5E 


C9 


22 






CMP 


#QUOTE 




7F60 


DO 


F6 






BNE 


WCIOO 





7F62 


A6 


77 






LDX 


TXTPTR 


7F64 


E8 








I NX 




7F65 


86 


DA 






STX 


FNADR 


7F67 


20 


70 


00 


WC20 


JSR 


CIIRGET 


7F6A 


AA 








TAX 




7F6B 


FO 


08 






BEG 


WC210 


7F6D 


C9 


22 






CMP 


*QUOTE 


7F6F 


FO 


04 






BEQ 


WC210 


7F71 


E6 


Dl 






INC 


FNLEN 


7F73 


DO 


F2 






BNE 


WC200 


7F75 


20 


95 


F6 


VJC210 


JSR 


ZZZ ; ' 


7F78 


20 


57 


F8 




JSR 


CSTEl 


7F7B 


20 


49 


F4 




JSR 


LD300 


7F7E 


A5 


Dl 




WC215 


LDA 


FNLEN 


7F80 


FO 


OB 






BEO 


WC250 


7F82 


20 


E7 


7F 




JSR 


FVH 


7F85 


20 


D6 


F4 




JSR 


FAFl 


7F88 


DO 


08 






BNE 


WC270 


7F8A 


4C 


AD 


F5 


WC220 


JMP 


OP160 


7F8D 


20 


E7 


7F 


WC250 


JSR 


FVH 


7F90 


FO 


F8 






BEO 


VJC220 


7F92 


A5 


96 




WC270 


LDA 


ST 


1 7F94 


29 


10 






AND 


#%00010000 


*. 7F96 


DO 


4C 






BNE 


WC300 


CO 

7F98 


EO 


01 




/ 


CPX 


#1 ; 


1 7F9A 


FO 


ID 






BEO 


V7C2 80 


7F9C 


EO 


03 




' 


CPX 


#3 


7F9E 


DO 


DE 






BNE 


WC215 ; 


7FA0 


BD 


7B 


02 


WC27 5 


LDA 


TAPE1+1,X 


7FA3 


95 


FB 






STA 


TMPC , X ; 


7 FAS 


CA 








DEX 




7FA6 


10 


F8 






BPL 


WC27 5 


7FA8 


20 


17 


D7 


1 


JSR 


V7R0A 


7 FAB 


A9 


2D 






LDA 


#"-" 


7 FAD 


20 


D2 


FF 




JSR 


WRT 


7FB0 


20 


44 


D7 




JSR 


T2T2 


7FB3 


20 


17 


D7 




JSR 


V,'ROA 


7FB6 


B8 








CLV 




7FB7 


50 


28 






BVC 


V;C290 


7FB9 


AD 


7D 


02 


WC280 


LDA 


TAPEl+3 ; 


7FBC 


38 








SEC 




7FBD 


ED 


7B 


02 




SBC 


TAPEl+1 


7FC0 


AA 








TAX 




7FC1 


AD 


7E 


02 




LDA 


TAPEl+4 


7FC4 


ED 


7C 


02 




SBC 


TAPEl+2 


7FC7 


A8 








TAY 





GIVE NORMAL MSGS 



FIND 'VIC HEADER 
RE-ENTER PET ROK ROUTINES 



FIND "VIC HEADER 



NORFJiL PROGRAM HEADER 

SPECIAL VIC 'ABSOLUTE LOAD' 
FIND ANOTHER 

; GET START/END 
FROM TAPE HEADER 

PRINT THEM ON SCREEN 



ALV.'AYS 
GET PROGRAM LENGTH 



7FC8 


A5 


28 




LDA 


TXTTAB ; 


7FCA 


8D 


7B 


02 


STA 


TAPEl+1 


7FCD 


A5 


29 




LDA 


TXTTAB+1 


7FCF 


8D 


7C 


02 


STA 


TAPEl+2 


7FD2 


8A 






TXA 




7FD3 


18 






CLC 




7FD4 


6D 


7B 


02 


ADC 


TAPEl+1 


7FD7 


8D 


7D 


02 


STA 


TAPEH-3 


7FDA 


98 






TYA 




7FDB 


6D 


7C 


02 


ADC 


TAPEl+2 


7FDE 


8D 


7E 


02 


STA 


TAPEl+4 


7FE1 


20 


F8 


F3 V;C290 


JSR 


LD16 i 


7FE4 


4C 


IC 


F4 WC300 


JMP 


CONTLD 


7FE7 


A5 


9D 


FVi; 


LDA 


VERCK 


7FE9 


48 






PHA 




7FEA 


20 


9A 


F8 


JSR 


RDTAPE 


7FED 


AO 


00 




LDY 


#0 


7FEF 


Bl 


D6 




LDA 


(TBUF) ,Y 


7FF1 


C9 


03 




CMP 


13 


7FF3 


FO 


03 




BEQ 


ABSLD 


7FF5 


4C 


EF 


F5 


JMP 
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SUPERMOn For The VIC David A. Hook 

Barrie, Ontario 

Introduction 

No machine language monitor is provided in the VIC ROMs. 
Serious users find themselves in the same position as the 
first generation (BASIC 1.0) of PET users. Since only a 
commercial product, VICMON, is available, the need for a 
public-domain utility seemed a worthwhile project. 

Jim Butterfield has already developed TINYMONl, which 
may be found in Compute #20 (January 1982) . This offers the 
equivalent to the Commodore TIM monitor. 

We've already been accustomed to the benefits inherent 
in Supermon, Extramon and Micromon for the PET/CBM, Herewith 
my adaptation of Supermon for the VIC. 

While we are on the subject of Jim Butterfield, I once 
again offer my thanks for his many contributions to the 
PET/CBM/VIC community. His splendid v;ork and the donation of 
same to the public domain is quite remarkable. We often fail 
to acknowledge how rich is our store of knowledge because of 
this gentleman. 

Features 

Like its predecessors, VIC-20 SUPERMON loads and 
self-relocates to the top of VIC memory, regardless of the 
memory configuration installed. It was designed to fit in 
less than 2K, and I surrendered the "single-step" mode to 
accomplish this goal. 

Make no mistake, there's a lot of time to be invested to 
reproduce the code of this program. Since I plan to make 
this available through the Toronto Pet Users Group, you may 
obtain this at the April meeting. It should also be part of 
that 'evening's "Copy Disk". 

The syntax is identical to that of TINYMONl and Supermon 
(The Transactor, Vol. II, #11 of November 1980, Compute #19 
of December 1981 or The Torpet, Issue #7 of October 1981) . 
See these references for detailed documentation. 

I've copied Jim's technique of "absolute-load" files 
with VIC-20 SUPERMON. This means that if you SAVE memory 
with the monitor, the VIC won't relocate it on you when you 
come to re-LOAD the code. 

Jim said that the PET would ignore such files, but my 
utility called VICLOAD covers that shortcoming. 
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Procedure 

Apart from the investment of time, you don't really need 
to be familiar with machine-language to enter the program. 
One of Supermen's benefits is its value for beginners in ML 
programming. 

You'll need a PET/CBM with Upgrade (BASIC 2.0) or BASIC 
4.0 ROM installed. Start with a freshly powered-up machine. 
Enter the KL monitor by typing 'SYS4' and hitting 'RETURN'. 

There are 20 screens of information to be entered before 
you're done. Each requires the same procedure. Only the 
first (line entry) is slightly different: 

1. Immediately after the ".", type the range of memory 
to be displayed, like so: 

.M 002 8 002 8 <RETURN> 

One line of hexadecimal digits is shown on the 
screen. 

2. Move the cursor back to this line and type over the 
digits with the values: 

.: 0028 01 04 DF OD DF OD DF OD <RETURM> 

Don't forget to hit the 'RETURN' key at the end of each 
line, or else the nevj values won't be remembered. 

Now type in the starting and ending addresses for each 
of the 20 screens to be changed. For example, the first 
would be: 

.M 0400 047 8 <RETURN> 

Copy the values shown in the accompanying "hex dump" for 
each block shown. Type right over the existing values, 
(which will probably shov/ as "AA" on your screen) . Do your 
best to double-check before preceding v/ith the next block. 

Repeat until the block from $0D80 to $0DF8 is done. Now 
exit the monitor, with: 

.X < RETURN > 

NOW SAVE AND VERIFY THE PROGPJ^M. Do not pass "GO", do 
not collect $200... do this first! 
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Checking 

Because of the 2000+ entries you've made, the chance for 
error is high. Several "Immediate-" or "Calculator- Mode" 
statements are provided to verify your work. 

These statements do a "check-sura" on the total program, 
each multiple of 5-screens (4 check-sums) , and each "line" of 
8-entries. 

Enter the statements shov/n, with no line numbers please! 
On hitting 'RETURN', the total will be shown immediately 
below. 

If your first one shows "283370", then it's probably 
perfect. Go to the head of the class, and start using 
VIC-20 SUPERMON. 

Otherv/ise, work your way though the next four, noting 
which are correct. Each of these totals are a composite of 
80 lines of entry, (or 5-screens, as we put them in) . 

For any incorrect block from above, there is a 
corresponding statement to type. This will give the 
individual totals for each line of entry. Mark the lines 
that are different. You will now have to re-enter the ML 
monitor and make the necessary corrections. ReSAVE this 
version and re-do the checksum until it's correct. 

Operation 

Disconnect your cassette recorder (power off the PET 
first, please) . Reconnect to the VIC, turn everything on, 
LOAD VIC-20 SUPERMON and RUN it. 

You should be greeted with the so-called "Register 
Display", as on the PET/CEH. Unless it's a B & W display, 
you'll see several usages of VIC colour. 

Any entries you make will be in blue, while the VIC 
variously displays red for register headings or errors, 
purple for norm.al addresses, black for memory bytes and green 
for disassembly mnemonics or "next" addresses when assembling 
code. 

Since we are dealing v/ith a 22-character wide screen, 
the disassembly consumes two lines. The mnemonics are pushed 
to the right on the second line. More locations would have 
fit, but I chose to keep the actual "bytes" display. This of 
course permits you to change them, and causes an automatic 
redisplay of the same range of addresses. 

The goal of "under 2K" was met (by 3 bytes) , but the 
single-step had to be sacrificed. Someone else may re-work 
Hicromon for VIC, but its 4K size is of no use to the "3583 
BYTES FREE" crowd. 
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In Closing. . . 

If I use this half as much as Eupermon for PET, it will 
have been worth the adaptation effort. Without Supermon 1.0 
(for Original ROM), this v/ould not have been feasible. A 
deep bov/ towarcs 14 Brooklyn Avenue, Toronto. 

David A. Hook 
58 Steel Street 
BARRIE, Ontario 
L4M 2E9 
(705) 726-8126 



Editor's Note 

VICHON is available now from Commodore dealers. Unlike 
Supermon for the VIC, VICMON comes on a plug-in cartridge. 
VICMON is a 4K program and doesn't use any of the VICs RAM, 
leaving more room for your programs. Several additional 
features include scrolling backwards and forwards, 
quicktrace, single step, and more! If Daves' Superm.on for 
the VIC wets your appetite for further exploration into the 
realm of machine language, you'll find VICMON a welcome 
addition to your programming toolbox! 






^ «j \ Your VIC-20 Will Smile . 



/^ 






; 



yim 



Fire 



Volume One 



Fly a water-dropping helicopter, and 
try to put out the high-rise fire 
before it spreads. 



Draw 



Be an artist! This high-resolution 
drawing program makes it easy to 
create pictures on the screen, and then 
save them on tape. 



Race the computer, head-on! Simple 
but fun. 

The VIXEL #1 cassette costs only $12,95 in the US and 
Canada Foreign orders please add S3. 00 for shipping CA 
residents add 6% tax. Visa and MasterCard welcome 

VIXEL IS a trademark ol Th« CoOe Wof»s 

VtC-20 IS a trademark ol Commodore Business Machines, Inc 

The Code Works 

Box 550. Golela. CA 93116 805/683-158,5 



52 - 





: 0400 


00 


lA 


04 


64 


00 


99 


22 


93 






















: 0408 


12 


ID 


ID 


ID 


ID 


53 


55 


50 


: 0580 


85 


ID 


A9 


90 


20 


D2 


FF 


AO 




: 0410 


45 


52 


20 


56 


49 


43 


4D 


4F 


: 0588 


00 


00 


20 


CB 


F8 


00 


Bl 


CI 




: 0418 


4E 


00 


2F 


04 


6E 


00 


99 


22 


: 0590 


20 


34 


FA 


00 


20 


D3 


F8 


00 




: 0420 


11 


44 


41 


56 


49 


44 


20 


41 


: 0598 


C6 


ID 


DO 


Fl 


60 


20 


8B 


FA 




: 0428 


2E 


20 


48 


4F 


4F 


4B 


00 


44 


: 05A0 


00 


90 


OB 


A2 


00 


00 


81 


CI 




: 0430 


04 


70 


00 


99 


22 


11 


46 


52 


: 05A8 


CI 


CI 


FO 


03 


4C 


FC 


FA 


00 




: 0438 


4F 


4D 


20 


53 


55 


50 


45 


52 


: 05B0 


20 


D3 


F8 


00 


C6 


ID 


60 


A9 




: 0440 


4D 


4F 


4E 


00 


5E 


04 


73 


00 


: 05B8 


02 


85 


CI 


A9 


00 


00 


85 


C2 




: 0448 


99 


22 


11 


42 


59 


20 


4A 


49 


: 05C0 


60 


98 


48 


20 


CE 


F8 


00 


A9 




: 0450 


4D 


20 


42 


55 


54 


54 


45 


52 


: 05C8 


9C 


20 


D2 


FF 


68 


A2 


2E 


4C 




: 0458 


46 


49 


45 


4C 


44 


00 


79 


04 


: 05D0 


43 


FA 


00 


A9 


20 


2C 


A9 


OD 




: 0460 


78 


00 


9E 


28 


C2 


28 


34 


33 


: 05D8 


4C 


D2 


FF 


E6 


CI 


DO 


06 


E6 




: 0468 


29 


AA 


32 


35 


36 


AC 


C2 


28 


: 05E0 


C2 


DO 


02 


E6 


26 


60 


A9 


IC 




: 0470 


34 


34 


29 


AA 


31 


32 


37 


29 


: 05E8 


20 


D2 


FF 


A2 


00 


00 


BD 


EA 




: 0478 


00 


00 


00 


AA 


AA 


AA 


AA 


AA 


: 05F0 


FF 


00 


20 


D2 


FF 


E8 


EO 


16 




















: 05F8 


DO 


F5 


AO 


3B 


20 


BB 


F8 


00 


'. : 0480 


A5 


2D 


85 


22 


A5 


2E 


85 


23 '. 






















: 0488 


A5 


37 


85 


24 


A5 


38 


85 


25 


: 0600 


A5 


00 


00 


20 


34 


FA 


00 


A5 




: 0490 


AO 


00 


A5 


22 


DO 


02 


C6 


23 


: 0608 


01 


20 


34 


FA 


GO 


20 


B2 


F8 




: 0498 


C6 


22 


Bl 


22 


DO 


3C 


A5 


22 


: 0610 


00 


20 


81 


F8 


00 


FO 


57 


20 




04A0 


DO 


02 


C6 


23 


C6 


22 


Bl 


22 


: 0618 


BB 


FA 


00 


20 


7C 


FA 


00 


90 




04A8 


FO 


21 


85 


26 


A5 


22 


DO 


02 


: 0620 


2E 


20 


6C 


FA 


00 


20 


BB 


FA 




04B0 


C6 


23 


C6 


22 


Bl 


22 


18 


65 


0628 


00 


20 


7C 


FA 


00 


90 


23 


20 




04B8 


24 


AA 


A5 


26 


65 


25 


48 


A5 


0630 


6C 


FA 


00 


20 


70 


F7 


FO 


3C 




04C0 


37 


DO 


02 


C6 


38 


C6 


37 


68 


0638 


A6 


26 


DO 


38 


A5 


C3 


C5 


CI 




04C8 


91 


37 


8A 


48 


A5 


37 


DO 


02 


0640 


A5 


C4 


E5 


C2 


90 


2E 


AO 


3A 




04D0 


C6 


38 


C6 


37 


68 


91 


37 


18 


0648 


20 


BB 


F8 


00 


20 


2D 


FA 


00 




04D8 


90 


B6 


C9 


BF 


DO 


ED 


A5 


37 


0650 


20 


81 


F8 


00 


FO 


EO 


4C 


FC 




04E0 


85 


33 


A5 


38 


85 


34 


6C 


37 


0658 


FA 


00 


20 


7C 


FA 


00 


90 


03 




04E8 


00 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


0660 


20 


78 


F8 


00 


20 


B2 


F8 


00 




04F0 


BF 


78 


AD 


E8 


FF 


00 


8D 


16 


0668 


FO 


05 


20 


7C 


FA 


00 


90 


EB 




04F8 


03 


AD 


E9 


FF 


00 


8D 


17 


03 


0670 


A9 


05 


85 


ID 


20 


BB 


FA 


00 




















0678 


20 


9C 


F8 


00 


DO 


F8 


4C 


44 


'. : 0500 


A9 


80 


20 


90 


FF 


58 


00 


00 






















0508 


D8 


68 


85 


05 


68 


85 


04 


68 .: 


0680 


F8 


00 


20 


CF 


FF 


C9 


OD 


FO 




0510 


85 


03 


68 


85 


02 


68 


AA 


68 .: 


0688 


OC 


C9 


20 


DO 


Dl 


20 


7C 


FA 




0518 


A8 


38 


8A 


E9 


02 


85 


01 


98 .: 


0690 


00 


90 


03 


20 


78 


F8 


00 


A6 




0520 


E9 


00 


00 


85 


00 


00 


BA 


86 .: 


0698 


06 


9A 


78 


A5 


00 


00 


48 


A5 




0528 


06 


20 


CE 


F8 


00 


A2 


42 


A9 .: 


06A0 


01 


48 


A5 


02 


48 


A5 


03 


A6 




0530 


2A 


20 


43 


FA 


00 


A9 


52 


DO .: 


06A8 


04 


A4 


05 


40 


78 


A6 


06 


9A 




0538 


IB 


A9 


IF 


20 


D2 


FF 


A9 


00 .: 


06B0 


6C 


02 


CO 


AO 


01 


84 


BA 


84 




0540 


00 


85 


26 


A2 


OD 


A9 


2E 


20 .: 


06B8 


B9 


88 


84 


B7 


84 


90 


84 


93 




0548 


43 


FA 


00 


20 


BB 


FA 


00 


C9 .: 


06C0 


A9 


40 


85 


BB 


A9 


02 


85 


BC 




0550 


2E 


FO 


F9 


C9 


20 


FO 


F5 


A2 .: 


06C8 


20 


CF 


FF 


C9 


20 


FO 


F9 


C9 




0558 


OE 


DD 


BB 


FF 


00 


DO 


OC 


8A .: 


06D0 


OD 


FO 


37 


C9 


22 


DO 


34 


20 




0560 


OA 


AA 


BD 


CB 


FF 


00 


48 


BD .: 


06D8 


CF 


FF 


C9 


22 


FO 


OF 


C9 


OD 




0568 


CA 


FF 


00 


48 


60 


CA 


10 


EC .: 


06E0 


FO 


28 


91 


BB 


E6 


B7 


C8 


CO 




0570 


4C 


FC 


FA 


00 


A5 


CI 


85 


01 .: 


06E8 


10 


FO 


20 


DO 


EA 


20 


CF 


FF 




0578 


A5 


C2 


85 


00 


00 


60 


A9 


05 .: 


06F0 
06F8 


C9 
20 


OD 
8B 


FO 
FA 


16 
00 


C9 
29 


2C 
OF 


DO 
FO 


DD 
EA 



- 53 - 





: 0700 


C9 


03 


FO 


E6 


85 


BA 


20 


CF 


: 0880 


CI 


85 


IE 


98 


E5 


C2 


A8 


05 




: 0708 


FF 


C9 


OD 


60 


4C 


FC 


FA 


00 


: 0888 


IE 


60 


20 


E3 


FA 


00 


20 


6C 




: 0710 


20 


8F 


F9 


00 


DO 


F8 


20 


4F 


: 0890 


FA 


00 


20 


F4 


FA 


00 


20 


lA 




: 0718 


F5 


20 


4C 


FA 


00 


A5 


90 


29 


: 0898 


FB 


00 


20 


F4 


FA 


00 


20 


31 




: 0720 


10 


DO 


EC 


4C 


44 


F8 


00 


20 


: 08A0 


FB 


00 


20 


6C 


FA 


00 


90 


15 




: 0728 


8F 


F9 


00 


C9 


2C 


DO 


E2 


20 


: 08A8 


A6 


26 


DO 


64 


20 


2A 


FB 


00 




: 0730 


7C 


FA 


00 


20 


6C 


FA 


00 


20 


: 08B0 


90 


5F 


Al 


CI 


81 


C3 


20 


13 




: 0738 


CF 


FF 


C9 


2C 


DO 


D5 


20 


7C 


: 08B8 


FB 


00 


20 


D3 


F8 


00 


DO 


EB 




: 0740 


FA 


00 


A5 


CI 


85 


AE 


A5 


C2 


: 08C0 


20 


2A 


FB 


00 


18 


A5 


IE 


65 




: 0748 


85 


AF 


20 


6C 


FA 


00 


20 


CF 


: 08C8 


C3 


85 


C3 


98 


65 


C4 


85 


C4 




: 0750 


FF 


C9 


OD 


DO 


CO 


20 


82 


F6 


: 08D0 


20 


lA 


FB 


00 


A6 


26 


DO 


3D 




: 0758 


4C 


44 


F8 


00 


A5 


C2 


20 


34 


: 08D8 


Al 


CI 


81 


C3 


20 


2A 


FB 


00 




: 0760 


FA 


00 


A5 


CI 


48 


4A 


4A 


4A 


: 08E0 


BO 


34 


20 


C7 


FA 


00 


20 


CA 




: 0768 


4A 


20 


63 


FA 


00 


AA 


68 


29 


: 08E8 


FA 


00 


4C 


7F 


FB 


00 


20 


E3 




: 0770 


OF 


20 


63 


FA 


00 


48 


8A 


20 


. 08F0 


FA 


00 


20 


6C 


FA 


00 


20 


F4 




: 0778 


D2 


FF 


68 


4C 


D2 


FF 


20 


55 


: 08F8 


FA 


00 


20 


6C 


FA 


00 


20 


BB 


.' : 0780 


FA 


00 


2C 


2D 


91 


30 


F8 


60 '. 


0900 


FA 


00 


20 


8B 


FA 


00 


90 


14 




0788 


20 


70 


F7 


DO 


08 


A9 


03 


85 


0908 


85 


ID 


A6 


26 


DO 


11 


20 


31 




0790 


9A 


A9 


00 


00 


85 


99 


60 


09 


0910 


FB 


00 


90 


OC 


A5 


ID 


81 


CI 




0798 


30 


C9 


3A 


90 


02 


69 


06 


60 


0918 


20 


D3 


F8 


00 


DO 


EE 


4C 


FC 




07A0 


A2 


02 


B5 


CO 


48 


B5 


C2 


95 


0920 


FA 


00 


4C 


44 


F8 


00 


20 


E3 




07A8 


CO 


68 


95 


C2 


CA 


DO 


F3 


60 


0928 


FA 


00 


20 


6C 


FA 


00 


20 


F4 




07B0 


20 


8B 


FA 


00 


90 


02 


85 


C2 


0930 


FA 


00 


20 


6C 


FA 


00 


20 


BB 




07B8 


20 


8B 


FA 


00 


90 


02 


85 


CI 


0938 


FA 


00 


A2 


00 


00 


20 


BB 


FA 




07C0 


60 


A9 


00 


00 


85 


2A 


20 


BB 


0940 


00 


C9 


27 


DO 


14 


20 


BB 


FA 




07C8 


FA 


00 


C9 


20 


DO 


09 


20 


BB 


0948 


00 


9D 


10 


02 


E8 


20 


CF 


FF 




07D0 


FA 


GO 


C9 


20 


DO 


OE 


18 


60 


0950 


C9 


OD 


FO 


22 


EO 


20 


DO 


Fl 




07D8 


20 


B2 


FA 


00 


OA 


OA 


OA 


OA 


0958 


FO 


IC 


8E 


00 


00 


01 


20 


92 




07E0 


85 


2A 


20 


BB 


FA 


00 


20 


B2 


0960 


FA 


00 


90 


C6 


9D 


10 


02 


E8 




07E8 


FA 


00 


05 


2A 


38 


60 


C9 


3A 


0968 


20 


CF 


FF 


C9 


OD 


FO 


09 


20 




07FO 


90 


02 


69 


08 


29 


OF 


60 


20 


0970 


8B 


FA 


00 


90 


B6 


EO 


20 


DO 




07F8 


CF 


FF 


C9 


OD 


DO 


F8 


68 


68 


0978 


EC 


86 


IC 


20 


CE 


F8 


00 


A2 


.* : 0800 


4C 


44 


F8 


00 


A2 


02 


2C 


A2 '. : 


0980 


00 


00 


AO 


00 


00 


Bl 


CI 


DD 




0808 


00 


00 


B4 


CI 


DO 


08 


B4 


C2 . : 


0988 


10 


02 


DO 


OC 


C8 


E8 


E4 


IC 




0810 


DO 


02 


E6 


26 


D6 


C2 


D6 


CI . : 


0990 


DO 


F3 


20 


2D 


FA 


00 


20 


CB 




0818 


60 


20 


BB 


FA 


00 


C9 


20 


FO . : 


0998 


F8 


00 


20 


D3 


F8 


00 


A6 


26 




0820 


F9 


60 


A9 


00 


00 


8D 


00 


00 . : 


09A0 


DO 


92 


20 


31 


FB 


00 


BO 


DD 




0828 


01 


20 


DB 


FA 


00 


20 


92 


FA . : 


09A8 


4C 


44 


F8 


00 


20 


E3 


FA 


00 




0830 


00 


20 


7F 


FA 


00 


90 


09 


60 . : 


09B0 


85 


20 


A5 


C2 


85 


21 


A9 


08 




0838 


20 


BB 


FA 


00 


20 


7C 


FA 


00 .: 


09B8 


A2 


00 


00 


85 


27 


86 


28 


A9 




0840 


BO 


DE 


A6 


06 


9A 


A9 


IC 


20 


09C0 


93 


20 


D2 


FF 


A9 


OB 


85 


ID 




0848 


D2 


FF 


A9 


3F 


20 


D2 


FF 


4C .: 


09C8 


20 


67 


FC 


00 


20 


Dl 


FC 


00 




0850 


44 


F8 


00 


20 


CB 


F8 


00 


CA .: 


09D0 


85 


CI 


84 


C2 


C6 


ID 


DO 


F2 




0858 


DO 


FA 


60 


E6 


C3 


DO 


02 


E6 . : 


09D8 


A9 


91 


AA 


20 


43 


FA 


00 


4C 




0860 


C4 


60 


A2 


02 


B5 


CO 


48 


B5 


09E0 


44 


F8 


00 


AO 


2C 


20 


BB 


F8 




0868 


27 


95 


CO 


68 


95 


27 


CA 


DO . : 


09E8 


00 


20 


CB 


F8 


00 


20 


2D 


FA 




0870 


F3 


60 


A5 


28 


A4 


29 


4C 


35 . : 


09F0 


00 


20 


CB 


F8 


00 


A2 


00 


00 




0878 


FB 


00 


A5 


C3 


A4 


C4 


38 


E5 . : 


09F8 


Al 


CI 


20 


EO 


FC 


00 


48 


A9 
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OAOO 90 20 D2 FF 20 26 FD 00 


. : 0B80 C9 OD FO IE C9 20 FO F5 


0A08 A9 IE 20 D2 FF 68 20 3C 


. : 0B88 20 D4 FE 00 BO OF 20 9F 


OAIO FD 00 A2 06 EO 03 DO 12 


. : 0B90 FA 00 A4 CI 84 C2 85 CI 


0A18 A4 IF FO OE A5 2A C9 E8 


. : 0B98 A9 30 9D 10 02 E8 9D 10 


0A20 Bl CI BO IC 20 C9 FC 00 


. : OBAO 02 E8 DO DB 86 28 A2 00 


0A28 88 DO F2 06 2A 90 OE BD 


. : 0BA8 00 86 26 FO 04 E6 26 FO 


0A30 2E FF 00 20 A6 FD 00 BD 


.: OBBO 75 A2 00 00 86 ID A5 26 


OA38 34 FF 00 FO 03 20 A6 FD 


. : 0BB8 20 EO FC 00 A6 2A 86 29 


0A40 00 CA DO D5 60 20 D4 FC 


. : OBCO AA BC 3B FF 00 BD 7B FF 


0A48 00 AA E8 DO 01 C8 98 20 


. : 0BC8 00 20 BD FE 00 DO E3 A2 


0A50 C9 FC 00 8A 86 IC 20 34 


. : OBDO 06 EO 03 DO 19 A4 IF FO 


0A58 FA 00 A6 IC 60 A5 IF 38 


.: 0BD8 15 A5 2A C9 E8 A9 30 BO 


0A60 A4 C2 AA 10 01 88 65 CI 


. : OBEO 21 20 C3 FE 00 DO CC 20 


0A68 90 01 C8 60 A8 4A 90 OB 


. : 0BE8 C5 FE 00 DO C7 88 DO EB 


0A70 4A BO 17 C9 22 FO 13 29 


. : OBFO 06 2A 90 OB BC 34 FF 00 


0A78 07 09 80 4A AA BD DD FE 


. : 0BF8 BD 2E FF 00 20 BD FE 00 


0A80 00 BO 04 4A 4A 4A 4A 29 


.: OCOO DO B5 CA DO Dl FO OA 20 


0A88 OF DO 04 AO 80 A9 00 00 


.: 0C08 BC FE 00 DO AB 20 BC FE 


0A90 AA BD 21 FF 00 85 2A 29 


.: OCIO 00 DO A6 A5 28 C5 ID DO 


OA98 03 85 IF 98 29 8F AA 98 


.: 0C18 AO 20 6C FA 00 A4 IF FO 


OAAO AO 03 EO 8A FO OB 4A 90 


. : 0C20 2B A5 29 C9 9D DO ID 20 


0AA8 08 4A 4A 09 20 88 DO FA 


.: 0C28 31 FB 00 90 OA 98 DO 04 


OABO C8 88 DO F2 60 Bl CI 20 


. : 0C30 A6 IE 10 OA 4C FC FA 00 


0AB8 C9 FC 00 A2 01 20 OC FB 


. : 0C38 C8 DO FA A6 IE 10 F6 CA 


OACO 00 C4 IF C8 90 Fl A2 03 


. : 0C40 CA 8A A4 IF DO 03 B9 C2 


0AC8 C4 27 90 F2 60 A8 B9 3B 


. : 0C48 00 00 91 CI 88 DO F8 A5 


OADO FF 00 85 28 B9 7B FF 00 


. : 0C50 26 91 CI 20 Dl FC 00 85 


0AD8 85 29 A9 00 00 AO 05 06 


.: 0C58 CI 84 C2 AO 41 20 BB F8 


OAEO 29 26 28 2A 88 DO F8 69 


. : 0C60 00 20 CB F8 00 A9 IE 20 


0AE8 3F 20 D2 FF CA DO EC 4C 


. : 0C68 D2 FF 20 2D FA 00 20 CB 


OAFO CB F8 00 20 E3 FA 00 20 


. : 0C70 F8 00 A9 IF 20 D2 FF 4C 


0AF8 6C FA 00 20 F4 FA 00 20 


. : 0C78 Bl FD 00 A8 20 C3 FE 00 


OBOO 6C FA 00 A9 09 A2 00 00 


. : 0C80 DO 11 98 FO OE 86 IC A6 


0B08 85 27 86 28 20 CE F8 00 


. : 0C88 ID DD 10 02 08 E8 86 ID 


OBIO 20 6F FC 00 20 Dl FC 00 


. : 0C90 A6 IC 28 60 C9 30 90 03 


0B18 85 CI 84 C2 20 70 F7 FO 


. : 0C98 C9 47 60 38 60 40 02 45 


0B20 05 20 31 FB 00 BO E9 4C 


. : OCAO 03 DO 08 40 09 30 22 45 


0B28 44 F8 00 20 E3 FA 00 A9 


. : 0CA8 33 DO 08 40 09 40 02 45 


0B30 03 85 ID 20 BB FA 00 20 


. : OCBO 33 DO 08 40 09 40 02 45 


0B38 9C F8 00 DO F8 A5 20 85 


. : 0CB8 B3 DO 08 40 09 00 00 22 


0B40 CI A5 21 85 C2 4C 47 FC 


. : OCCO 44 33 DO 8C 44 00 00 11 


0B48 00 C5 28 FO 03 20 D2 FF 


.: 0CC8 22 44 33 DO 8C 44 9A 10 


0B50 60 20 E3 FA 00 20 6C FA 


. : OCDO 22 44 33 DO 08 40 09 10 


0B58 00 8E 11 02 A2 03 20 DB 


. : 0CD8 22 44 33 DO 08 40 09 62 


0B60 FA 00 48 CA DO F9 A2 03 


.: OCEO 13 78 A9 00 00 21 81 82 


0B68 68 38 E9 3F AO 05 4A 6E 


. : 0CE8 00 00 00 00 59 4D 91 92 


0B70 11 02 6E 10 02 88 DO F6 


. : OCFO 86 4A 85 9D 2C 29 2C 23 


0B78 CA DO ED A2 02 20 CF FF 


. : 0CF8 28 24 59 00 00 58 24 24 



- 55 - 



ODOO 00 00 IC 8A IC 23 5D 8B 
0D08 IB Al 9D 8A ID 23 9D 8B 
ODIO ID Al 00 00 29 19 AE 69 
0D18 A8 19 23 24 53 IB 23 24 
0D20 53 19 Al 00 00 lA 5B 5B 
0D28 A5 69 24 24 AE AE A8 AD 
0D30 29 00 00 7C 00 00 15 9C 
0D38 6D 9C A5 69 29 53 84 13 
0D40 34 11 A5 69 23 AO D8 62 
0D48 5A 48 26 62 94 88 54 44 
0D50 C8 54 68 44 E8 94 00 00 
0D58 B4 08 84 74 B4 28 6E 74 
0D60 F4 CC 4A 72 F2 A4 8A 00 
0D68 00 AA A2 A2 74 74 74 72 
0D70 44 68 B2 32 B2 00 00 22 
0D78 00 00 lA lA 26 26 72 72 



0D80 88 C8 C4 CA 26 48 44 44 
0D88 A2 C8 3A 3B 52 4D 47 58 
0D90 4e 53 54 46 48 44 50 2C 
0D98 41 4C F9 00 3F F9 GO DD 
ODAO F8 00 06 F9 00 60 F9 00 
0DA8 87 F9 00 E9 F9 00 FD F9 
ODBO 00 40 FB 00 94 FB 00 C2 
0DB8 FB 00 35 FC 00 5D FD 00 
ODCO 8B FD 00 AD FD 00 17 F8 
0DC8 00 OD 20 20 20 50 43 20 
ODDO 20 53 52 20 41 43 20 58 
ODDS 52 20 59 52 20 53 50 AA 
ODEO AA AA AA AA AA AA AA AA 
0DE8 AA AA AA AA AA AA AA AA 
ODFO AA AA AA AA AA AA AA AA 
0DF8 AA AA AA AA AA AA AA AA 



T=0 : FORJ=1024TO3550 : T=T+PEEK( J ) : NEXT : ?T 
283370 

READY. 

T=0 : FORJ=1024TO1663 : T=T+PEEK{ J ) : NEXT : ?T 
68631 

READY . 

T=0:FORJ=1664TO2303:T=T+PEEK( J) :NEXT: ?T 
77155 

READY . 

T=0 : FORJ=2304TO2943 : T=T+PEEK( J ) : NEXT : ?T 
74768 

READY . 

T=0 : FORJ=2944TO3550 : T=T+PEEK( J ) : NEXT : ?T 
62816 

READY . 
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